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Declarations 
spe pla | 4 Data 
Read/Write Data 

RMS-32 Data Structures 

Test and Dey ce Initialization 

Test the DR11-W 

Routine to Dump Debugging Info 

DR1ii-W AST Receiver 

Restore Original DRil-W Characteristics 
Timer Expiration Routine 

System Service Exception Handler 

RAS Error Handler 

CTRL/C Handler 

Error Exit 

Exit Handler 
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“ENABLE SUPPRESSION 


Std bal “t 1978, 1980, 1982, 1984 B 
DIGITAL EQU PRENT CORPORATION, MAYNARD. MASSACHUSETTS. 


ALL RIGHTS. RESER 


SOFTWARE IS yeni UNDER A LICENSE AND MAY BE USED AND corres 
IN cucR CE WITH THE TERMS OF SUCH LICENSE AND WITH THE 
SION THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER 
) THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY 
R PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY 
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THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
eeppokat itn NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 


DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 
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++ 

FACILITY: 
This sodule will be distributed with VAX/VMS under the [CSYSTEST] 
account. 


ABSTRAC 
Us ing $a10 systen, Services, this program exercises the maintenance mode 
functions of a DR11-W. 


ENVIRONMENT: 
This program will run in weer access mode, wien ASTs enabled agent 
during error proces oi, Poy requires an AST Lim 
buffered 1/0 Limit of 6010) and the PHY_IO and DIAGNOSE privileses. 


OOoOOCOCCOOCOOOOOCOOOOOOOOOOOOOoOoO 
CGOOOCOOCOSOCOSOSSSOCOOCOOSOOOOOOOOOSOOO: 


AUTHOR: Richard N. Holstein, CREATION DATE: August, 1981 
MODIFIED BY: 
V03-005 RNHOO06 Richard N. Holstein, 15-Feb-1984 
Take advantage of the new UETP message codes. Fix SSERROR 
interaction gith RMS_ERROR. 
V03-004 RNHOOOS Richard N. Holstein, 19-Dec-1983 
Give correct sentinels to Test Controller. Use LIBSSIGNAL or 
SpuTHse throughout, instead of LIBSPUT_OUTPUT. 


V03-003 RNHOO004 Richard N. Holstein, 11-Mar-1983 
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Don't signal ending message in EXIT_HANDLER. 


v03-002 RNHOO03 Richard W. Holstein, 23-Feb-1983 
Allow for longer device names. 


V03-001 RNHOO02 Richard N. Holstein 15-0c t-1982 
Miscellaneous fixes Listed in the V38 UETP Workplan. 


V02-001 RNHOOO1 Richard N. Holstein, 4-Dec-1981 
Fix problems in reset routine which caused errors when the 
turnéround connector wasn't installed. 
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ue -SBTTL Declarations 
7 3; INCLUDE FILES: 
0 6 ; SYSSLIBRARY:LIB.MLB for general definitions 
8 f 3 SHRLIBS$:UETP.MLB for UETP definitions 
000 3 3; MACROS: 
$09 1 SCHFDEF 3; Condition handler frame definitions 
000 ¢ SDEVDEF 3; Device definitions 
$008 SDIBDEF 3; device Information Block 
4 SDVIDEF 3; SGETDVI ITMLST item codes 
0000 $2 SIODEF 3; 1/0 functions codes, etc. 
0000 6 SQIODEF : $Q10 offsets and NARGS 
0000 87 SSHRDEF ; Shared messages 
000 88 $SSDEF 3; System Service status codes 
000 89 SSTSDEF ; Status return 
000 90 SUE TUNTDEF 3; UETP unit block offset definitions 
0000 91 SUETPDEF 3; UETP 
0000 38 SXADEF 3 DRI1-W 
0000 93 ; 
0000 94 ; EQUATED SYMBOLS: 
0000 95 ; 
0000 96; Facility number definitions: 
00000001 44 of RMS$_FACILITY = 1 
$000 99 ; SHR message definitions: 
00740000 0000 100 UETP = UETPS_FACILITY@STSS$SV_FAC_NO ; Define the UETP facility code 
See lots 0000 101 UETP$_ABENDD = UETP!SHRS$_ABENDD™; Define the UETP message codes 
007410 0000 19 UETP$_BEGIND = UETP!SHR$_BEGIND 
00741080 0000 10 UETPS_ENDEDD = UETP!SHRS$_ENDEDD 
0074109 3988 104 UETPS_OPENIN = UETP!SHRS$_OPENIN 
0074113 444 192 UETPS_TEXT = UETP!SHRS$_TEXT 
0000 107; ~# Internal flog bits... 
00000001 0000 108 EST_OVERV = 1 ; Set when test is over 
000002 0000 109 SAFE _TO_UPDV = § ; Set if it's safe to update UETINIDEV 
0000000 000 110 BEGIN MSGv = ; Set if ‘BEGIN’ msg has been printed 
0000000: 000 111 ONE _SROTV = 4 ; Set if running in one-shot mode 
00000005 B88 ii DUMP_MODEV = 5 2 
000000 0 11 NO_MESSAGEV = 6 ; Set if bad data msg given after $Q10 
000 114; ...and corresponding masks: 
600° 8 115 T_OVER = TATEST_OVERV 
118 SAFE _TO_UPDM = 1@SAFE TO_UPDV 
44s 00 = =«611 GIR_MSGM = 1aBEGIA SGV 
000001 0 BF SROTA = 1@0NE_SAOTV 
0000002 11 DUMP MODEM = 1aDUMP MODEV 
000 : y NO_MESSAGEM = 1aNO_MESSAGEV 
1 § 3 Miscellany: 
nh 3 - as LC_BITM = “x20 ; Mask to convert lower case to upper 
124 REC SIZE = 40 ; UETINIDEV.DAT record size 
1F4 125 TEXT_BUFFER = 500 : Internal text buffer size 
1 $ EFN2 = 4 ; EFN used for three minute timer 
3 1 SS_SYNCH_EFN = ; ; Synch miscellaneous system services 
F 0 128 MAR_PROC_NAME = 15 ; Longest possible process name 
| 
j 
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Boooees 000 186 RAXZUNITODESIG= 5. spe possible unit number 


Declarations 
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0000s 


00000258 


Page (3) 


DRil-W specific fe initions: 

o10.5 FN = +1 : DR1i1-W 1/0 

DWT_SIZE = iyetcal DR1il-W transfer size in bytes 
We oy Y. BH OP DWT pitt SIZE must be an even num 


cow 


IF 
If G SIZE-6 RROR™ SJZE bute SIZE must be less than 6 $55 
E RINTRUR = bodocput eT Teo oe 3; Min? acceptable $Q10s for normal run 
§ = transfer-rate- Saehdinnersaneen tenmmtarainedmomda 
; The test lasts well over a second and not all $010s transfer so many 
; bytes, so this should be quite a minimal value! 


Note well that the DRI1-W transfers words, but VMS counts bytes, -— that in 
maintenance mode, ‘the DR1i-W does alternating at phe i 4 transfers a 
pogeorsr ive a a DATI from location ¥ followed x8, a DATO to TT eatten 
X+2 og by a DATI from Location X+#4 and so on.’ Rl1i-W Specification, 
September 1980 revision. The word count is decremented twice for each word 
of data, once for the DATI and once for the DATO. 

WRITE_SIZE = DWT_SIZE ; Buffer size in bytes 


3; For conciseness Later on, define here bit masks for 1/0 function c 
XAW__RESET_CYCLE = IO$_WRITEPBLK! IOSM_DIAGNOSTIC! 10$M_ ttt 

= 108 WRI TEPGLK | 108H. DIAGNOSTIC!I LE 

= 13; 103 “Seren 


OSM_TIM 


Sete te Ge Ge Ge 
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KAW CY 
XAW--SETFNCT_CYCLE 


10$M_CYCLE 
XAW__TIMED_CYCLE 


es. 
10$™_ CYCLE 
T! 
1OSM_CYCLE 
For each unit, there will be a data structure set up, called a 

node. These nodes will be Linked together in a self-relative queue whose 
header is UNIT_LIST. The first ae of each nope wrt A oe entese 
definition from SUETUNTDEF. Fol owing that will c evice 

de arevet stuff, defined below. NOTE THAT THIS DEFINITION 1s SONE “it AN 
ABSOLUTE PSECT. This means that what look Like declarations are really 
definitions and the Labels are really just offsets sare a@ given node on the 
queue. (A not nocouser {hy obvious consequence of usi ng an ABS PSECT is that 
apene ess pe reserved with .BLKx operations, since .BYTE, etc., attempt to 
store data. 


-PSECT DEVDEP_STR_DEF,ABS,NOEXE,NOWRT,PAGE ; Note ABS attribute! 
-BLKB UETUNTSC_DEVDEP ; Skip over standard VETUNT block 


XA_Q_I0SB: ; 10SB for our DR11-W 
-BLKQ 1 


KA OCR te ' ; Characteristics buffer for IO$S_SETCHAR 
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XA_Q aan 1 , 3; DR11-W characteristics before starting tes 


15 

000001BC 4 
7 XA_K_QI10: ; Space for $Q10_G argument List... 

4 

+ 

8 


000001F0 -BLKL QI10$_NARGS+1 3 ...and the argument List counter 


ALL the code which uses the fet Lowtns » two jtegs is heavily dependent on its 
dealing with qeoewere. pairs (i.e. byte) of time stamps and on the 


word pairs fitting lens a byte. 
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TIME_STAMP_LEN = 256 


XA_B_TSI: 
XA_K_TSTAMP: 
-BLKQ  TIME_STAMP_LEN 
DEVDEP_SIZE = .-UETUNTSC_DEVDEP 
-ALIGN WORD 
XA_K_BUF : 
.BLKB = WRITE_SIZE 
PAGES = <<UETUNTSC_INDSIZ+- 
DEVDEP_STZE+= 
WRITE _SIZE+- 
511>/512> 


SSEp= 1986 04:95:15 
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2*count of start/finish quadword pairs 
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; Index into the following... 


; «eeCcircular List of time stamps of... 
; »ee last start/finish of $Q10s 


Device dependent part size of node 
Note that this excludes buffers 


Unibus DDP requires word alignment 
1/0 buffer for both reads and writes 


Add together all of the pieces... 
«eewhich make up a UETP unit block... 
asa pe give to the SEXPREG service... 
ene ater 


byte 
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Read-0 “ Data 
RODATA,NOEXE ,NOWRT , PAGE 


A 7 -SBTTL 
0000 : o8 »PSECT 
10 ACNT_NAME: 3; Process it 
53 45 54 53 59 53 00000008"010E0090" 09 i “ASCID /SYSTEST/ warren ae 
OOF 3 
iH 15 TEST_NAME: ; This test name 
31 52 44 54 45 55 00000077") 059009" OOF 14 -ASCID /UETDR1WO0/ 
0 ae 15 
16 SUPDEV_GBLSEC: i ss UVETSUPDEV.DAT 
50 55 53 54 45 55 00000028"010E9000" 3 at ~TSASCID /UETSUPDEV/ acer ets 
ee BE 
88 1 315 CONTROLLER: ; Logical name of controller 
41 4E 4C 52 54 43 00000039'010E0000' 0031 20 -ASCi /CTRLNAME/ 
45 4D 003F 
0041 1 
0041 ; MODE : ; Run mode logical name 
45 44 4F 4D 00000049'010E0000' ved ? -ASCID /MODE/ 
004D 5 NO_RMS_AST_TABLE: ; List of errors for which.. 
00000000' 004D 6 LONG RMS$_BLN > .eeRMS cannot deliver an AST. 
00000000" 0051 4 “LONG RMS$_BUSY i «..even if one has an ERR= arg 
00000000' 0055 8 - LONG MS$_CDA : Note that we can search table.. 
00000000" 0059 9 LONG RMS$_FAB ; «eevia MATCHC since <31:16>.. 
00000000" 005D 0 -LONG RMS$_RAB 3 «pattern can't be in <15:0>° 
00000014 Bees 1 NRAT_LENGTH = --NO_RAS_AST_TABLE 
0061 38 SYSSINPUT: 3; Name of device from which... 
4E 49 24 53 59 53 samnoanedl ty: * 0061 4 -ASCID /SYSSINPUT/ 3 «eethe test can be aborted 
54 55 50 pret ; 
0073 % INPUT_ITMLST: ; SGETDVI arg List for SYSSINPUT 
0020 0040 007 37 «WORD 64,D0VI$_DEVNAM ; We need the equivalence name 
0000000C'00000014" 0076 238 “LONG BUFFER,BUFFER_PTR 
00000000 sit zh LONG 0 ; Terminate the List 
008 41 CS1: ; Device class and type control string 
21 20 42 58 32 21 00000084"91059099" 08 42 ASCID /!2XB !2xB / 
20 42 58 09 
094 43 
96 44 CS3: ; Device class-only control string 
2A 20 42 58 32 21 secoesec*ersecees® +3 45 eASCID /!2¥B e*/ 
nt af 
A 47 CNTRLCMSG: 
5 74 % gf 3 41 0 20 61 68 76 99 88 00° A 48 -ASCID \Aborted via a user CTRL/C\ 
65 7 61 20 61 g 1 
43 $f 4C 52 54 4 49 
350 NO_CTRLNAME : 
1 -ASCID /No controller specified./ 
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| 
E4 3 DEAD_CTRLNAME: 
20 2 g $F 2 43 090 poEe's oF 0 9" ¥ $33 “ ,ASCID /Can't test controller !AS, marked as unusable in UETINIDEV.DAT./ | 
$f $1 $0 20 ; : 41 21 72 65 6C FE | 
61 73 of 8 73 61 ° 6 10A 
ce 49 54 43 55 20 GF 69 20 65 6c 62 O1Ig | 
2E 54 41 44 2E 56 45 44 4 ; ‘ 55 
69 6E O 6F 4E 00000133'010E0000' i 5 $54 atthe 1! ware it lected for testing./ 
" n . 
58 be 68 94 65 é 6c 9133 29 Foe bi88 pape whee saterpe Mined pint. 
2— 67 6E 69 74 65 74 20 72 6F 66 133 5 
61 67 65 6C 6C 49 00000159'010E0000" 13 $35 aetna) /JILL l d f t in file VETINIDEV.DAT!/ 
. egal record format in e .DAT! 
o> SF 6 90 bs Te oh os 65 yoo fee OTS ° 
20 65 6C 69 56 20 6E 69 20 74 61 9p 198 
41 44 2E 56 45 44 49 4E 49 54 45 55 1 
21 54 B183 
0185 61 
8182 6¢ PASS_MSG: 
66 6F 20 64 3 45 Boog 01052090" 0185 6 eASCID /End of pass !UL with !UL iterations at !%D./ 
69 77 20 4C 55 21 20 73 7 gi 0 st 193 
61 72 65 74 69 20 4C 55 21 20 68 74 019F 
44 25 21 20 74 61 20 73 6E 6F 69 74 Ps 
2E aie 
188 64 
0188 65 INIDEV_UPDERR: ; Error during exit handler 
72 45 99000160"01 05009 * 0188 66 -ASCID /Error updating UETINIDEV.DAT./ 
54 45 55 20 67 6E 69 74 61 64 70 75 +016 
1 44 2E 56 45 44 49 4E 49 0102 
01DD 267 
01DD 68 THREEMIN: ; 3 minute delta time 
FFFFFFFF 94862E00 8108 $° -LONG -10*1000*1000*180,-1 
DIES 71 UNIT_DESC: ; Descriptor used to convert unit # 
00000005 0O1E5 i -LONG 5 
0000001A' 434 iS -ADDRESS BUFFER+6 
OiED 75 CONT_DESC: ; Descriptor used to convert controller... 
0000 0028 O1ED 6 -WORD REC_SIZE,0 3 «from lowercase to uppercase 
00000014 ' gir) 44 ADDRESS BUFFER 
ifs 79 FILE: : Fills in RMS_ERR_STRING 
65 6C 69 66 000001FD'010E0000' Ne 0 .ASCID /file/ | 
} ¢ RECORD: ; Fills in RMS_ERR_STRING 
64 72 6F 63 65 72 00000209'010E0000' ; ? eASCID /record/ 
41 21 20 $3 4D 52 00000217"010E00 F  5Be eS ERR SRS RMS 1AS ia. 
’ ’ " ! error in file ! 
66 3 6E 69 20 as tae ¢3 65 5S 99 1p | 
44 41 21 20 65 6C 69 ’ 
; p 388 PROMPT: | 
¢ 9 72 65 6C gc 6F 72 74 43 $f 43 ASCII /Controller designation?: / 
A SF GE 6F 69 74 61 GE 67 69 73 65 C | 
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“the TABLE_GEN chad is used to conerontty and. consistently lay out the 

perene ers which w “i otter i Q O when testing the DRil-wW. 

ne is aca he E_GEN macro. The LINE_GEN macro will be 

ex anded to fill yi roster ial tables from which the parameters 
l be taken “hon the $010 is performed. 


Because these tables introduce an additional level of indirection in the 
erquaents. i ot ypis ie sal0.s form of the ist vil errriee becomes unuseable. 
We will use orm. The argument List will be reserved space in 
the te on Gnit List’ Ae. the DRi1l-W; we can't use , X $Q10 macro there 
because of ABS .PSECT restrictions. Define a dummy argument List now with 
the items which can be supplied at assembly time: 


DUMMY 910: 
$a10 EFN = QIO_EFN, P6 = DIAG_BUF 


The rest of the arguments will be supplied as the node is allocated (those 
_which are static across $Q0]0s) or as an individual $Q10 is done. 


Dee Se He Oe Oe Be Be Se Oe ee er 


MACRO TABLE_GEN 


The function codes used below are all defined earlier in the DR11-W Specific 
definitions area. 


First, try some basic functions: in maintenance mode, do various length word 
and block mode transfers. Since heatces virtual and physical 1/0 are the 
same to the DR11i-W, doing all 1/0 in 3 aysices mode is sufficient. Physical 
mode 1/0 is necessary to access the DR1i-W in maintenance mode. 


LINE_GEN I0$_SETCHAR, 0, XA_Q_CHARAC, 0, 0, 0, 0 


LINE_GEN C, ASTADR, Pl, P2. P3, P4, PS 
LINE-GEN XAW_ _RESET _CYCLE, 0, KA_K_BUF, & & @ & 
LINE~GEN XAW--RESET-CYCLE, 0. XA_K-BUF , 4, . t's 
LINE~GEN KAW “CYCLE, 0, XA-K~BUF, oe 
LINE~GEN XAW--CYCLE, 0. XA-K~BUF .DWT “size 0. 0. 0 
LINE~GEN XAW--CYCLE, 0. XALKTBUF,DWT"SIZE. 0. 0. 0 


Play with FNCT ae STATUS bits. The set won't transfer any 

data, per se, but will cause the DR11-W IDR and ODR to be accessed. 
NOTE: This function cancelled because it works only if the turnaround 
connector is instailed. 


LINE_GEN FUNC ASTADR. , P2, . PR, P4, PS 
CINE “GEN XAW__SETFNCT_CYCLE, 0, KA_K pur. 5; <*XA72E> 


Do some word and block mode transfers with a timeout parameter. Get an 
AST when the device finishes. 


Sete Ge Se Ge Ge Se Gee Se Ge Se Ge 


LINE _GEN ASTADR, Pl, PB. PS oF PS 
LINED GEN XAW__TIMED tYCLE, IOAST, XA_K_BUF, DWT “sine, 0 


.ENDM TABLE_GEN 
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76 ;+ 
= ; We now need to generate the set of parallel tables from which the $Q10s 
of ; will take their arguments. Define the LINE_GEN macro twice, the first time 
79 ; to count the number of calls, and the second time to fill the tables. In 
: between, allocate the space for the tables. 
: : -MACRO_ LINE GEN FUNC,ASTADR,P1,P2,P3,P4,P5 
LINE GEN COURT = LINE_GEN_COUNT+1 
: -ENDA = CINE_GEN 
§ LINE_GEN COUNT = 0 
TABLE_GER ; This one counts LINE_GEN calis 
83 «ALIGN LONG ; May as well speed things up a bit 
91 FUNC_TABLE: ; $Q10 function code 
35 ~BLKL LINE_GEN_COUNT 
94 ASTADR_TABLE: ; AST routine when 1/0 completes 
95 -BLKL LINE_GEN_COUNT 
97 P1_TABLE: ; Data buffer, characteristics buffer 
-BLKL LINE_GEN_COUNT 3; or attention AST service routine 
P2_TABLE: ; Byte size of data buffer 
-BLKL LINE_GEN_COUNT 
P3_TABLE: ; Timeout in seconds or AST access mode 
~-BLKL LINE_GEN_COUNT 
P4_TABLE: 3; CSR FNCT bits (2-0 only) 
-BLKL LINE_GEN_COUNT 
P5_TABLE: ; Value (word) to load into ODR 
-BLKL LINE_GEN_CQUNT 


-MACRO LINE_GEN FUNC ,ASTADR,P1,P2,P3,P4,P5 
. = FUNC_TABLE+<4#LINE_GEN_COUNT> 


. = ASTADR_TABLE+<4*LINE_GEN_COUNT> 
“ADDRESS ASTADR 
> = P1_TABLE+<4*LINE_GEN_COUNT> 
“ADDRESS P 
. = P2_TABLE+<4*LINE_GEN_COUNT> 

= P3_TABLE+<4*LINE_GEN_COUNT> 

= P4_TABLE+<4*LINE_GEN_COUNT> 

= P5_TABLE*<4#LINE_GEN_COUNT> 


“LON 

CINE_GEN_COUNT = LINE_GEN_COUNT+1 
L 

T 


ENOM = CINE_GEN 


INE_GEN COUNT = 0 
ABLE_GER ; This one fills the above tables 
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0000000 6 
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0000 0074 6 
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00000282 3 
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00000000 : 
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00000000 00000000 


00000000 00000000 


00000000 00000000 
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-SBTTL Read/Write D 
-PSECT RWDATA,WRT,N 
TTCHAN: 
«WORD 0 
FLAG: 
-WORD 0 
FAO_BUF : 


TEXT BUFFER,O 


«WORD 
-ADDRESS BUFFER 


BUFFER Shit 


BUFFER: 
-BLKB 


DEVDSC: 
«WORD 


TEXT BUFFER,O 


ORD 
-ADDRESS BUFFER 


TEXT_BUFFER 


MAX DEV _DESIG,0 


-ADDRESS DEV_NAME 


PROCESS_NAME: 


eASCID /DRIW/ 
PROCESS_NAME_FREE = 
“PROCESS NAME _FREE 


-BLKB 


DEV_NAME : 
-BLKB 


NAME LEN = 


DIB: 
WORD 


MAX_DEV DESIG+MAX _UNIT _pésiG 


~~DEU_N 


DIBSK_LENGTH,0 


“ADDRESS DIBBOF 


DIBBUF : 
-BLKB 


ERROR_COUNT : 
LONG 
STATUS: 
LONG 
QUAD_STATUS: 
» QUAD 
INADDRESS: 
LONG 
CUTERORESS we 


DEVNAM_LEN: 
- WORD 


DIBSK_LENGTH 


0 


3 ae -ASCID buffer for misc. 


AX/VMS Macro V 


4-00 Page 1 
UETP.SRCJUETOR tose MAR; 1 . 13, 


Channel associated with ctrl. term. 
Miscellaneous flag bits 

(See Equated Symbols ior definitions) 
FAO output string descriptor 


strings 
A word for Length, a word for desc. 


FAO output and other misc. buffer 


Device name descriptor 


; Process name 
MAX_PROC_NAME~<.-8-PROCESS_NAME> 


Device name buffer 


; Device Information Block 


; Cumulative error count at runtime 


Status value on program exit 


; 10 status block for misc sys. svcs. 


SCRMPSC address storage 


; Current device name Length 


wens 
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Read/Write D 
D4 
D4 
AAAAAAAA pe 
D 
A72EA72E 38 
oc 
oC 
00000000 4 
E 
00000000 ; 
E4 
000002E8 + 
4 
0000000 E 
hey ’ Ef 
000000 F 
0000286" O2F4 
F8 
FS 
00000000 8 F 
FC 
FC 
Ne 
00000000 00000000 a8 
0 
00000000 00000000 | °° 
10 
00000308 10 
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RANDOM1 and RANDOM2 may be combined to preese a set Py pseudo-random numbers 
RANDOM! : 


-LONG “XAAAAAAAA 


RANDOM2: 

LONG “XA72EA72E 
ITERATION 

0 

PASS 

-LONG 0 
MSG_BLOCK: 

-BLKB 4 
EXIT_DESC: 


cL 0 
“ADDRESS, EXIT HANDLER 
“ADDRESS STATUS 


ARG_COUNT: 

.LONG 0 

ALIGN QUAD 
UNIT_LIST: 

QuAD 0 
NEW_NODE 

Quad 0 
DIAG_BUF 

BLKL 50 


Random word # 
Random word #2 
# of times all tests were executed 
Pass count 
Auxiliary SGEYMSG info 


Exit handler descriptor 


For self-relative queve of unit blocks 
Head of unit block circular List 


Newly acquired node address 


Argument counter used by ERROR_EXIT 
$QI1C P6 diagnostic buffer 
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BT RMS-32 Data Structures 
IGN LONG 


.SBTTL 
‘ALIGN 
SYSIN_FAB: 
$F AB- 
FNM = <SYSSINPUT> 


SYSIN_RAB: 
$RAB- 


Allocate FAB for SYSSINPUT 


WAN Ww 


Allocate RAB for SYSS$INPUT 


Bny nF AB. 


INI _FAB: Allocate FAB for UETINIDEV 


cote »PUT,UPD>,= 


oer PUT,UPI>,= 
<UETINIDEV.DAT> 


PEGASO ININIMINININING OVTTCTYO 


BODO DWODESASAOOCOM MOMOOOOOOOOOOMWM@WWOMdccccocecocecece 


SUP_F AB: Allocate FAB for UETSUPDEV 


$F AB- 

= GET,- 
<UP{,GET>,- 
CR,- 
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BUSAN OS ODNAUE WN 0 OONAUE WW | CO ODNOU ES UW OOONIO 
“ 
= 
z 
nunun 


QUPVPVPVPVPVPh BB BE PP PPP PPP PPP EES 


B 
8 INI_RAB: ; Allocate RAB for UETINIDEV 
B $RAB- 
B FAB = INI_FAB,- 
B RBF = BUFFER,- 
B UBF = BUFFER.- 
8 USZ = REC_SIZE 
0 DDB_RFA: : RFA st for INI_RAB 
00000506 059 a KS (6 rte vallgen 
0 .ALIGN LONG 
0 
0 


OOCOCOCOCOOCOooCCooooooooooooO 


UFO,- 
<UE f SUPDEV.DAT> 
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Initialization 


5 6 -SBTTL Test and Devic 
0000 § -PSECT DR11W,EXE,NOWRT PAGE 
‘ DEFAULT DISPLACEMENT ,WORD 
735 3+ 
74 ; Start up the DRi1i-W test. This entails some overhead necessary to cope 
83 13 3 with both expected and unforseen conditions, figuring out just what 
00 6 3 devices are to be tested, making sure we can test the indicated devices 
009 78 : and setting up writeable space for each device to be tested. 
7? a 
0000 000 i eENTRY UETDR1WOO, “*M<> 3; Entry mask 
6D O8B89'°CF DE 000 ¢ MOVAL SSERROR, (FP) ; Declare exception handler 
000 58 SSETSFM_S ENBFLG = #1 ; Enable system service failure mode 
Baie ase SOCLEXH_S DESBLK = EXIT_DESC ; Declare an exit handler 
0018 386 SOPEN FAB = SYSIN_FAB,=- 3; Open SYSSINPUT 
0018 5 ERR = RMS_ERROR 
002A 588 SCONNECT RAB = SYSIN RAB,- ; Connect RAB to SYS$INPUT 
002A 589 ERR = RMS_ERROR ; 
02 €1 0039 590 BBC S*#DEVS$V_TRM,- ; BR if SYSSINPUT is NOT a terminal 
1E 0418'CF 0038 591 SYSIN FAB+FABSL_DEV, 10$ 
OO3F 236 STRNLOG_S LOGRAM = CONTROLLER,= ; Allow terminal user to specify... 
OO3F 59 RSLLEN = DEVNAM_LEN,=- ; ...a logical name... 
OO3SF 594 RSLBUF = DEVDSC 3; «efor the controller to test 
01 50 di 0058 232 CMPL RO,#SS$_NORMAL ; Was a controller specified? 
2— «613 it 238 108 BEQL PROC_CONT_NAME ; BR if it was - go process it 
005D 598 $GET RAB = SYSIN_RAB,- ; Read SYSSINPUT... 
0050 599 ERR = RMS_ERROR 3 ..-for the controller name 
Been ee B0 B26 $00 MOVW STSIN RABURABSU_RSZ.= ; Save the name Length 
16 12 it O08 BNEQ PROC_CONT NAME ; BR if we got somethin 
O2B6'CF 14 00 007 60 MOVL #SS$"BADPARAM, STATUS 3; Save an exit status if not 
00 “es oF Born os CUSHAL NO_CTRLNARE ; Prepare for message... 
00741132 Bf +4 0080 606 peter : ETPS_TEXT!STSSK_ERROR i osee 
oon? 1 0088 on8 BRiW ERROR_EXIT 3 .e.to tell of bad setup 
0 610 PROC_CONT NAME: 
0208'CF 8 pe ee 611 MOVZWL DEVNAM_LEN,DEVDSC ; Set the device name Length 
08'CF els PUSHAL DEVDSC ; Make sure... 
0208'CF 096 61 PUSHAL vosc ; «s.that the specified controller... | 
 woae's 84 2 A 614 ALL #2,G*STRSUPCASE 3.18 all uppercase for later comparison 
52 0208'CF 1 Al 615 ADDLS #1,DEVDSC ; Estimate the eventual... ae 
O210'CF 52 A? 616 ADDW 2°PROCESS NAME : ..eprocess name Length (incl. ".") 
AC 61 MOVAL PROCESS NAME+8- ; Locate first available byte... 
AD e183 +MAX_PROC_NAME- 3 ...iM process name handle... 
50 O21C'CF AD 61 ~PROCESS_RAME_FREE,RO ; ...for device name 
1 620 SUBL3 #PROCESS_NAME_FREE,- ; Will the device name fit... 
51 621 R2,R1 y sou 00 phe remaining space? 
6 g BLEQ =s-108 : BR if it will 
50 6 SUBL2 R1,R0 ; Overwrite handle otherwise... 
0210°CF OF A 624 MOVW = #MAX_PROC_NAME,PROCESS_NAME ; ...and define the maximum Length 


us yor iyoo 
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5 10$: 


80 at 8F 8 Ove 

60 O227'°CF 02 a mOovCc3 
E 04 CLRL 

QOOF'CF ODF PUSHAL 

DD PUSHL 

DD PUSHL 


00741039 8F 
QOO00000'GF 04 F 
QOO2'CF O08 A 


O210'Cr OF 
01 


748328 8F DD 


00 PUSHL 
Q00000000'GF O03 FB 


CALLS 


DPDPAEDP_QPEDXAEAP AA AAA AA AAA AAA AAA AAA AAA AAA AAAO 
PDAS Be Be BS BB BE AAI AINA rornoronern) 


Oe ee a ee a ed ed ed ed md OOO OOOOOO 

OO O00090908 SVU & & EN) 3 Ss FH HMM OOCVOOOWW 

SNIO NNO F MO OOOMNMTNS OWOWONNNVAOOAMNIOOMO OWT Own" 
=O OONO UE WN 0 OONOAU EWN" O OONOU FE Wr" OOOnNo 


felelelelelelelealelelealelelelelelelelealelelealaleleleleioi =) 


20S: 
0014'CF 20 8A BICB2 
0014'CF  4F BF 91 CMPB 
95 12 BNEQ 
0002'cF 10 as ion BISW2 
0014'"CF 50405544 BF D1 é CMPL 
05 if 66¢ BNEG 
oo02'cF 20 A 6 BISwW2 
664 27$ 


= VAX/VMS_UETP DR11-W EXERCISER 


BISW reeCI GIN 
SSETPRN_S PRCNAM = FRIAS _NAME ; 


BL 
SASSIGN_S DEQNAM = = Gurren PTR,- : Set up for CTRL/C AST handler 
$a10W_s CHAN 


py 
PUSHAL * paces _NAME 
PUSHL 


STRNLOG_S RSLLEN = MODE 


16-SEP-1984 01:25:57 VAX/VMS Macre V04-00 Page 
mat 1 84:53:35 UETP.SRCJUETDR1WOO.MAR; 1 . 
#*A/_/,(RO)4 ; Separate handle from device name 
DEVDSC.DEV. NAME , (RO) 3 Concatenate handle with device name 
(SP) ; Set the time stamp flag 
T ST_NAME ; — , "te test name 
a the argument count 
HUE TPS B GIND !STSSK_ succésss ‘et the message code 
4,G*LIBS$SIGN ; Print the startup messa ge 
MSGM,F ; Set flag so we don't print it again 
Set the process name fo UETDR1IWOO_x 


02. €1 BBC A ; BR if SYSSINPUT is NOT a terminal 
66 0418'CF FAB+ Ais ogy DEV, 208 
$GETOVI 3 "DEVRAR INP ; Get the name of.. 
EFN ass SYN BA EFN,- 3 «device which may abort test 
ITMLST : = INPOT_ITMCST,= 
Se = QUAD_STATUS 
45 O2BA'CF €9 BC QUAD_STATUS ; Avoid CTRL/C handler if any error 


= Enable CTRL/C AST's... 
= ros Me wane fof CTRLCAST,= 
= CCASTHAND 

: --.and tell the user... 


fyeres ABORTC!STSSK_ succéss" ; > ..ehow to abort gracefully... 
G*LIBS$SIGNA S aiie 
; Get the run mode 
EN = BUFFER_PTR,- 
LBUE = FAO BUF 
ne nyt /BUFFER 


Convert to upper case 
#*A70/ TTRUEFER 


Is fois : one shot? 


258 BR if n 
#ONE _SHOTM,FLAG Set Phy for one-shot mode 
#*A/DUMP/ ,BUFFER : 


zpeg yet dump mode info wanted? 


#DUMP_MODEM,FLAG : Set flag for dump mode messages 


UE! 
VOd 
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197 6 : 
13¢ és ; From UETINIDEV.DAT and UETSUPDEV.DAT, get information which gives controller 
197 5 3 and unit configurat on and lets us know if the setup to run this test was 
13 068 : ; done correctly. 
197 671 SOPEN FAB = INI_FAB,- : Open file "UETINIDEV.DAT” 
0197 626 ERR = RMS~ERROR 
1A6 67 SCONNECT RAB = INT_RAB,=- ; Connect the RAB and FAB 
1A6 674 ERR = RMS-ERROR 
18 675 SMGBLSC_S INADR = INADDRESS,- ; Connect to UETSUPDEV global section 
185 676 RETADR = OUTADDRESS,- 
0183 67 GSDNAM = SUPDEV _GBLSEC.~ 
1B 678 FLAGS = #SECSM_EXPREG 
00000978 8F 29 o} nies 44 eg G3, 7688 mes ; PY pba already there? 
: was... 
01DD rt SOPEN FAB = SUP_FAB,- : «else open ‘‘UETSUPDEV.DAT"’ 
01DD 68¢ ERR = RMS~ERROR 
O1EC 68 SCRMPSC_S CHAN = SUP_FAB+FABSL_STV,- ; Create the global section 
O1EC 684 INADR = INADDRESS,=- 
O1EC 685 RETADR = OUTADDRESS, - 
O1EC 686 GSDNAM = SUPDEV_GBL Sec, 
Oaas eth 30$ FLAGS = #SECSM_ EXPREG! SECSM_GBL 
56 O2CE'CF O2CA'CF (C3 a314 oe? SUBL3 OUTADDRESS,OUTADDRESS+4,R6 ; Compute global section Length 
021C 691 FIND_IT: 
021C $36 $GET RAB = IWI_RAB ; Get the first record 
021C 69 ERR = RMS “ERROR 
O1ED'CF DF 0228 694 PUSHAL : TDSC ; Make sure... 
O1ED'CF ODF O22F 695 PUSHAL CONT_DESC 3 «e-that the controller name... 
00000000'GF 02 FB 8 3 «669 CALLS #2,G*STRSUPCASE Sneath. O85 uppercase letters 
0014'CF 44 oF 4 9 ib 44 ik wr h/o/, BUFFER g is nny Ml. 
: Go on 
0014'CF 45 H+ 91 8 rt 699 CMPB #*A/E/ BUFFER 3; Is this the “eel of the file? 
D2 12 0248 700 BNEQ FIND If : Continue on if not 
O208'CF ODF been 701 PUSHAL DEVDSC ; Push device not supported message 
till 4 s $5 4 eu anal PROCESS WANE ; Parameters on the stack 
00748333 ge 0D 54 704 PUSHL #UETPS_DENOSU 
02 FO SA 705 INSV #STS$K_ERROR ; Set the severity code... 
0 5c £06 #STSSV-SEVERITY, 
0 5D 7 #STS$S— SEVERITY, (SP) 
02B6' CF oe ° 0 +4 oe ttl (SP) ,STATUS 3 ...and save it as the exit status 
0709 1 28 ey 108 BRwW ERROR_EXIT ; Exit in error 
0227'CF OO1A'CF Oepe"ce 9 o 4 re et FIND LEN, BUFFER+6,DEV MAE i = this the right controller? 
OSOO'CF O4CC'CF 6 25 a 714 MOoVC3 Ql ns Mee ty _RFA,DDB_RFA ; Save the record file address 
OO18'CF 54 cr 7} 7 ay ayy PAI: BUFFER+ : Can ye test this controller? 
oS $FAO_S EoRSTR = = DEAD_CTRLNAM ME. - *; ...and yell. at user if we can't 
oe Ss = PY UFFER_PT 
71 row FAO BU oe 
720 = = #DEDDS 
02B6' CF 14 00 3 721 MOVL #Sss BADPARAM STATUS ; Set return status 
000C 'CF DF A 722 PUSHAL BUFFER _PTR Sad 


ote 
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1 DD A7 4 3 PUSHL #1 3 wee 
00741132 8F 0D Ag 4 PUSHL MUETPS_TEXT!STSSK_ERROR ; ... 
3 gp AF 725 PUSHL @# I wen 
O78E 1 8) 4 § BR ERROR_EXIT ; We can't test what we can't test 
B4 7 8 FOUND_IT: 
B47 SGET RAB = INI_RAB,= : Get a record | 
B4 730 ERR = RMS~ERROR 
QYED'CE DE OCS 731 PUSHAL CONT_DESC™ ; Make sure... | 
1ED'CF OF C 7 § PUSHAL e's NT_ M1335 3 «eethat this line... 
00000000'GF O02 FB O2C 7 CALLS *®STRSUPCASE : peens all uppercese letters 
0014'CF 55 BF 7 0 D2 734 CMPB eivu/, BUFFER : Is this a | 
4 1 D 735 BEQL ; BR if it is 
0014'CF 44 BF 91 O2DA 7 § CMPB 3°2/0/ BUFFER ; Is this a DDB? 
19 13 O2E 7 BEQL ; BR if yes 
0014'CF 45 8F 91 O2E 738 CMPB #*A/E/ BUFFER ; Is this the end? 
11 #13 «0 cs 44 108 BEQL 20$ ; BR if yes 
O1S1°CF OOF 0 EA 741 PUSHAL ILLEGAL_REC ; Then this is an error in the record 
01 OD EF 6k: PUSH ; Push the error message 
00741132 8F DD O2F 74 PUSHL #UETPS_TEXT!STSSK_ERROR ; Push the signal name 
03 bp O2F6 744 PUSHL ; Push the temp arg count 
0747 1 O2F8 745 BRw ERROR_EXIT ; Finish for good 
O2FB 746 20$: 
015C¢ 31 O2FB 747 BRW ALL_SET ; Found DDB or END 
O2FE 748 30$: 
OO18'CF 54 BF 91 O2FE 749 CMPB #*A/T/ ,BUFFER+4 ; Is the unit testable? 
12 0304 750 BNEQ FOUND_IT ; BR if not 
5 38 0306 751 SKPC ae ie as _UNIT_DESIG,=- ; Find out where unit number really is 
OO1A'CF 0309 3g BUFF 
e 030c 8675 DECL ; Units must all be at least one digit 
61 50 0 8306 754 SKPC #*A/0/,R0,(R1) 3; Skip heeding zeroes 7 the unit 
50 D6 B31 755 INCL RO 3; Compensate for DECL a 
O208'CF O2D2"°CF 50 Al $10 756 ADDW3 = RO, 4 LEN, DEVDSC ; Calculate device’ unit "string \e Length 
O2Dp2'cF 3¢ O31C 757 MOVZWL DEVNAM_LER.R 3; Offset to unit number in 
0227°C2 61 50 28 0321 £758 MOVC3 §=RO, ¢ ate DEV NAME (R2) 3 Append unit number to device 
0327 759 SGETDEV_S SEVNAR = BEVDSC, 3; Get the device characteristics 
0327 760 PRIBUF = DIB 
S57 02462°CF 9A O33C 761 MOVZBL DIBBUF+DIB$B =DEVCLASS, R7 ; Save the device class 
58 0243'CF 9A 0341 ree MOVZBL DIBBUF+DIBSB_DEVT YPE ,R8 3; Save the device type 
baee 76 FAO CTRSTR = CS1,- 
8 46 764 OUTBUF = FAO_BUF,- 
346 «=. 765 P1 = R7,=- 
b3e8 76 A = R8 3 Rete it into a string 
O2CA*DF 56 OO14°CF 06 39 5B 76 MATCHC #6,BUFFER,R6,@0UTADDRESS ; Find the device class and type 
1E 13 0364 768 BEQL 408 :BR if it was found 
66 6 SFAO_S CTRSTR = CS3,- : Try for full class support 
66 a4 wees = Ao. BUF ,- 
O2CA‘DF 56 0014'CF 06 39 $8 ak MATCHC +3 BUF FER,R6,@0UTADDRESS- 3; Find the device class only 
OD 12 ¢ a6 408 BNEQ 50$ ; BR if not found 
55 Q00F "Cf 9A s\ eae mOvZBL ne NAME ,R5 ; Get the test name Length 
0017"CF §663 559 9 006 CMPC3 RS, (R3), TEST_NAME+8 : Are we the right test’ 
13 : of 50s BEQL 60$ ; BR if yes 
O208'CF ODF 91 ire PUSHAL DEVDSC ; Push device not supported message 
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PUSHL 
BRW ERROR_EXIT 


SEXPREG_S td = = NEU NO 
INSQTI @NEW NODE SUNIT mS | 
OVL NEW 


MOV W_RNODE,R6 
MOVE so#1 OE TUNTSB TYPE ( 


F 6 
= VAX/VMS UETP DRil-W EXERCISER 16-SEP-1984 01:25:57 VAX/VMS Macro V04-00 Page 
Test and Device Initialization mie) 7 6 :15 (CUETP.SRC CESpR OD. MAR; 1 ” (39) 
DF PUSHAL PROCESS_NAME ; Parameters on the stack 
DD PUSHL @ ; Push the argument count 
DD PUSHL ove res. DENOSU 
FO INSV #STS$K K-ERROR ~ 
#STSSV-SEVERITY 
#STS$S— SEVERITY. (SP) Set the severity code. 
dO MOVL (SP), STATUS ~seand save it as the exit status 


Push the partial arg count... 
+--and split this scene 


Get a new node of demand zero memory 
Put the new node in the unit List 


Save a copy of its address 
Set the structure type 


MOVW #UETU NTSC TRDS1Z+DEVDEP S178, 

UETUN ZE(R6) the structure size 
MOVB_ DEV EUETUNTST FILSPC(RS) s Set the device name size 
MOVC3 DEVDSC 9 VDSC+Z,- ; Save the device name 

UETUNT$T ariuspeet (Ro) 
BISB2 AUETUNTER STABLE,- : Assume DR11<W testable 

TUNT 8 FLAGS( > 
SASSIGN § DEVWAR™ = DEVD Get the DR11-W for our exclusive use 
CHAN = YETUNT Su. CHANiRG) 

BLBS RO,70 ; We're OK if we got the device 
MOVL RO, STATUS 3; Save the failure code as exit status 
INSV  #STS$K_ERROR,- 

#STSSV~SEVERITY,- 

#STS$S_SEVERITY,STATUS ; Set the severity code 
BICB2 #UETUNTSM_TESTABLE,- ; We can't test DR1I1-W 

ETUNTSB_ FLAGS (R6) ; 

SFAO_S CTRSTR = DEVALLOC,- ; Otherwise bitch somewhat 

OUTLEN = BUFFER PTR,- 

OUTBUF = FAC _BUF,- 

= #DEVDSC 


Pi 
PUSHAL BUFFER. PTR 
PUSHL —#UETP$. TEXT! STSSK_ERROR 
STATUS” 


LL: # 
BRW ERROR_EXIT 


MOVC3 #4e<al0s NARGS+1> 

Q10,XA k anf 5«Ro» 
MOVZWL UETUNTSA €HAR 

aroral0s. EHANCRO) 
MOVAQ HAO 1088. 

brovaros’ 10SB(R6) 
mova DIBBOF +DIB$B BEVCLASS,- 


RIGINAC(R6) 
BRw FOUND IT _— 


Fill static $Q10_G args... 
«swith those which... 


3 «can't be filled at assembly 


Save original characs 
Do the next UCB 
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45SA ; 
4SA : ; Arrive here when we have the device configuration. In normal or loop forever 
45A 4 ; mode, set a timer far enough in the future such that we can do a reasonable 
45A 5 ; set of tests before the timer expires, but if our device gets hung, the 
4SA $ ; program won't waste too much time before noticing. Let one-shot mode be a 
45A 3; Special case. 
45A 3 : 
45A ALL_SET: 
0300'CF 83 $28 40 TSTL NIT_LIST ; Anything to test? 
1 1 4 3 41 BNEQ 0$ ; BR if yes 
O12B'CF DF 046 tg PUSHAL NOUNIT_SELECTED ; Else set up the error message... 
g DD rh 4 PUSHL 3 «+-argument count... 
00741132 8F DD 0466 44 PUSHL  M#UETPS_TEXT!STSSK_ERROR ; ...signal name... 
0 DD 046C 45 PUSHL 3 ...8Nd parameter count 
O2B6'CF 14 bo 3 6 MOVL #SS$_BADPARAM, STATUS ; Set return status 
OSscCc 1 pel? r 108 BRW ERROR_EXIT 3 «and give up, complaining 
Q0002'CF 04 A8 43 rk BISW2 #SAFE_TO_UPDM,FLAG ; OK, safe to update VETINIDEV.DAT now 
478 ae ; MOVL DEVNAR_LEN,DEVDSC ; DEVDSC will describe device name 
05 Os cE 04 €1 0478 51 BBC #WONE_SAOTV,FLAG,TIME_IT ; BR if in normal Loop forever modes 
0002'CF O02 AB 0481 o2§ BISW2 #TEST_OVERM, FLAG ; One-shot mode, stop after one shot! 
pe56 53 ; Because not all $Q10s have a timeout parameter, this test will always fall 
486 54 ; into TIME_IT to do a S$SETIMR. 
0486 55 
0486 52$ TIME_IT: 
0486 885 SSETIMR_S DAYTIM = THREEMIN,- ; Set timer AST to 3 minutes 
0486 858 ASTADR = TIME_OUT,=- 
0486 859 FN = = WEFN2 
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-SEP-19 
-SBTTL Test the DR11-W 
RESTART: 
At this point the device designation is in location DEV_NAME pointed to by 
; descriptor DEVDSC. The device is known to be supported by this test. 
sai aww UNIT_LIST,R6 ; R6 will point to the current node 
ADDL2 (R6),R6 ; Point to the next oossible node 
CMPL raed ; Back at the head of the queue? 
BN EG 10$ ; BR not 
108: BRw 3; Exit test portion if we are 
; BBC #UETUNTSV_TESTABLE,- ; Skip this unit if can't test it 
UETUNTSB_ FLAGS(R6), TEST LOOP 
MOVL M<WRITE_SIZE/4>,R8 ; Fill alternate words (byte count/4)... 
208 MOVAL XA_K_BUF(R6),R9 3 ...0f the read/write buffer... 
" ADDL2. ss RANDOM2,, RANDOM1 > ..ewith random... 
MOVZWL RANDOM1, (R9)+ 3 «words. 
SOBGTR R8,20$ 3 sc suntil it's full 


Set up DR11-W quadword characteristics buffer for future 10$_SETMODEs 
<eey sav Eee Sapee class and (bogus) buffer size and enabling for Unibus BDP 
when we wan 


MOVQ XA_Q mth tay > 4 ade 


x ARAC(R 6) 
BISB2 ours at ; Add other characteristics... 
A_Q "CHARAC#4(R6) : ..e(but avoid XASM_DATAPATH) 


As described previously, the TABLE_GEN and LINE_GEN macros set 18. a get of 
parallel tables with parameters to be used in $010s to the DR11- 

through those tables. For each $Q10 which transfers data, check thet the 
data were passed correctly and clear the words into which data were written. 


; Class, type & transfer count 


Although the data structures of this test would permit multi-unit 

asynchronous testing of l-W's, the way VMS treats DR11-W's tons unit per 
logical controller) means that we will test one one unit per test invocation. 
Since operations will turn out synchronous anyway, we may as well be honest 
and use the $Q10W system service to synchronize control. 


3; Set up counter to go thru tables 


CLRL R7 
MOVAL XA_K_QIO(R6),R10 : Point to $010 arglist for clarity 


30S: . 
MOVL P5_TABLECR7],Q10$_P5(R10) : Set up those $010. G args... 
MOVL P4~ art -210$-P P4(R10) ; wae h must be done for... 
MOVL P3- vat P3(R10) : cane individual $Q10 
MOVL Sa ELR P2(R10) ‘ee 
ADDL3 7P1_TABLE ip PURO)"; gi 
MOVL ‘tia na ies 
mOVL ABLE cR74 sAStabinio> eo 
MOVL asta at: R7],Q FONC(R10) . 
$Qi0W_G (R107 : Do one function of the DR11-W 


INCL ~ Neeson ; Count $Q10s done 


V 


Test the DR11-W “SEP- ETP. SRCJUETD 


| I 6 
UE FOR N00 = VAX/VMS_U iP DRi1-W EXERCISER 1 mi iets 9 9) 3$3:32 ties Macro NTG08 mans 1 Page (i) 


51 1FO C6 A 1 MOVZBL XA_B_TSI(R6),R1 ; Put index value into index register 
O1F1 C641 OsOgF ? ; 5 315 on DING_BUF ,xA_k_TSTAMP(RG)ERIJ § ag F Q10 starting time stamp 
; Bum ndex 
O1F1 C641 = 0318'CF 3 F : 1 MOVQ DIAG _BUF+8,XA,K, TSTANPCRADERTS store $Q10 ending time stamp 
1 8 537 ¢ INCL R ; Bump up index 
O1FO C6 1 : 4 4 ? MOVB R1,XA_B_TSI(R6) ; Keep index modulus 2**8 
3850 €8 O53E 925 BLBS RO,40$ ; BR if the $Q10 itself worked 
0788'CF 2 FB 0541 9 § CALLS o} DEBUG DUMP ; Print diagnostic info if it failed 
begs Cr 5 D0 0546 9 OVL RO,.STATUS ; Save a record of what failed... 
58 1406 DE 0548 928 MOVAL. UETUNTST_FILSPC(R6).R8 : ... 
Baer 3 9 SFAO_S CTRSTR = Q10_ ERROR,- i ee. and consider it a fatal error 
4F 0 UTLEN = BUFFER PTR,- 
54F =. 931 OUTBUF = FAO_BUF,- 
54F 9 ¢ = RB 
02B6'CF DD 0564 9 PUSHL STATUS ; 
OOOC’CF DF 0568 934 PUSHAL BUFFER_PTR ; 
4 DD 056C 935 PUSHL : 
00741132 8F DD 36 9 $ PUSHL  #UETPS_TEXT!STSSK_ERROR ; 
04 pp 0574 9 PUSHL #4 3 
0469 31 0576 938 BRW ERROR_EXIT Dies 
0579 939 40S: 
71 O1A4 C6 =—EB «=—0579)—S (940 BLBS XA_Q_10SB(R6) ,50$ ; BR if the function of the $QI10 worked 
0788'CF O00 FB b2z8 941 CALLS #0,DEBUG_DUMP ; Type special info if in DUMP mode 
58 14 a6 ODE 058 4g MOVAL UETUNTST~FILSPC(R6) RB 
0587 3894 SFAO_S CTRSTR = QIO FUNC _FAIL,- ; Report the problem otherwise 
0587 944 OUTLEN = BUFFER_PTR,= 
0587 945 OUTBUF = FAO_BUF,- 
0587 946 Pi = R8,- 
0587 947 P = FUNC_TABLECR7], 
0587 948 P = XA_Q~I10SB(R6) ,- 
0987 949 pi = XA~Q710SB+4(R6) 
7E O1A4 C6 3C Q5A9 950 MOVZWL XA_Q_IOSB(R8)7=(SP) : 
Boee F OF 5A 951 PUSHAL BUFFER PTR : 
OOOF 99 8F DD 058 836 PUSHL #*xF0001 3 
00741130 8F DD 058 95 PUSHL #UETPS$_TEXT 3 sce 
O1A4 C6 «=6©FO 0OC05B 954 NSV XA_Q_10SB(R6) ,- ; Set the severity code 
99 Sco 955 #STSSV_SEVERITY,- 
3 5¢ 228 #STS$S_SEVERITY, (SP) 
B2'CF 06 O5C 95 INCL ERROR_COUNT : Keep a running count... 
O2B2'CF DD O5C9 958 PUSHL ERROR COUNT 3; ...0f the errors we've gotten 
..0210'CF DF O5Cb 959 PUSHAL PROC 53 NAME 
0001 08 F DD 0501 960 PUS #*x10002 
Bore 0 F DD Q5D7 961 PUSHL ave it ERBOXPROC!STSSK_ERROR ; Have the error stand out 
00000000 ' GF 8 FB Q5DD 3e8 CALL & GL Tess GNAL ; Bitch, bitch, bitch 
2 BA O5E4 96 BICB #UETUNTSM yb + ; Indicate that this unit is no good 
08 A6 2E6 964 UETUNT$B_FLAGS(R6) 
0002"CF 0040 8F A8 3: 303 508 BISW2 #NO_MESSAGEM,FLAG ; Indicate message already printed 
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OSB4'CF47 OD EF § TSTL P2_TABLECR7) 3; If zero length data transfer (words)... 
ee x BEQL i «+-Skip the check and reset 
58 OSB4'CF47 FE y 7 F6 y ASHL #-2,P2 yast eta? R8 3; Convert arte count to every-other-word cou 
ADDL oP1_TABL ° ; Check that the data buffer... 
59 0598'CF47 «56 OC of , on DDL3 -R6, P1_TABLELR7J,R9 Check that the data buff 
5B 669)= = 89—i—=é*A ? 5g XORW3 dl aaa 3 52°99¢ fiUhed correctly 
ee 9 74 BEQL 0$ ; BR if it did 
SF 08 ‘CF E ? ; 8h BBS #NO_MESSAGEV,FLAG,70$ ; Avoid extra messages 
"CF FB 061 A: CALLS #9. DEBUG DUMP i Type special info if in DUMP mode 
58 B10 5A 616 97 FFS 40,8 § RT1,R11 ; Find the first bi of bad data 
mo FD 8F 8 218 97 HL a rif Rif ; Convert bit-position to byte-in-word 
E 6948 gA 6 44 MOVZBL (R serif =(SP) ; Save the bad byte,... 
7E a3 A94B A 4 MOVZBL =2(R9)CR11),-(SP) i; «eethe corres onding good byte,... 
re.6F 26 C 629 981 SUBL R6,R9,-(SP) 3 «eewhere the bad data was... 
gf 5 C 62D 9 § ADOL R11, (SP) $ eee 
6— 05 a C2 06 9 9 SUBL2 P1_fABLECR7J, (SP) : ...in our buffer,... 
60 ‘CF DF 06 984 PUSHAL DEVD i «e.the device name,... 
9008 04 8F DD O63A 985 PUSHL #*XF0004 ;_...the argument count,... 
QOO74801A 8F DD 0640 986 PUSHL #UETPS DATADEVERR! STS$K_ERROR 3 «and the error type 
O2B2°CF D6 0646 987 INCL ERROR_COUNT ; Keep a running count... 
O2B2'CF DD 064A 43 PUSHL ERROR COUNT 3 «Of the errors we've gotten 
O210'CF DF 064 989 PUSHAL PROCESS NAME 
00010 9 F DD 065 990 PUSHL  #*x10002 
00748022 8F DD 065 991 PUSHL #UETPS$_ERBOXPROC!STSSK_ERROR ; Have the error stand out 
00000000 ' GF A FB 065 336 CALL #10,G*CIBSSIGNAL 3; Bitch, bitch, bite 
02 8A 066 99 BICB #UETUNTSM_ TESTABLE, - ; Indicate that this unit is no good 
OB A6 399 994 UETUNT$B_FLAGS(R6) 
0002'CF 0040 8F AB poe? 444 708 BISW2 #NO_MESSAGEM,FLAG ; Indicate message already printed 
89 §B4 be5 997 CLRW (R9)+ ; Clear word to which DR11-W does DATO 
90 58 =F5 bee 44 aos SOBGTR R8,60$ ; Loop through the whole buffer 
0002"CF 0040 8F AA 0675 1000 BICW2 #NO_MESSAGEM,FLAG ; New buffer rates another message 
09 0002"CF 01 EO 067C 1001 BBS #TEST_OVERV FLAG, 90$ > Exit quickly if the test is over 
FES8 57 01s (06s«éD aces 1008 ACBB = #LINE~GEN_COUNT-1,41,R7,30$ ; Loop until all $Q10s are done 
FE13) «631 0688 1004 BRW TEST_LOOP ; Loop for next DR11-W 
BE 1S oo 
O1CE 30 0688 1007 BSBW RESET_DR11WS ; Do $Q10s to reset original characs 


UVETDR1W00 
v04-000 


00000800" &F 


01 

11 0B AG 

36 g6 

56 00000300' ; 
0002'CF 2 
0002'CF 0 
FDDD 


56 0300'CF 


4C Q0002"CF 04 

56 =©0300'CF 

36 66 

56 00000300' 8F 

10 A6 = 00000258 4 
57 14 A6 


cone’ 


00741130 8F 
00000000 ' GF 33 


0014'CF 0 
OO14°CF 4C 8F 


4 
0002"CF 02 
O2E0'CF 


seeadl 
0741133 BF 

0'GF 
O2DC'CF 
FD12 


10000001 8F 


02B6'CF 
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Test the DRi1-W 
D 1009 INCL 
CF begs 1946 ADDS 
E0 3 i saan BBS 
69E 1 18 
CO Q6A1 1014 ADOL2 
Di Q6A4 1015 CMPL 
\s 6AB 1 18 BNEQ 
A 6AD 101 BISwW2 
6B2 1 18 110$: 
8 6B2 101 BITW 
1 687 1 9 BNEQ 
3 689 1 BRW 
6BC 1 § 
6BC 18 SUC_EXIT: 
EO O68C 1024 BBS 
DE 06C2 1025 MOVAL 
bet 1 § 208: 
CO 06C7 1 ADDL2 
D1 O6CA 1028 CMPL 
13. 06D1 1029 BEQL 
Di 0603 1030 CMPL 
15 06DB 193) BLEQ 
DE O6DD 1 § MOVAL 
06E1 103 $FAO_S 
06E1 ieee 
O6E1 1035 
Beet 1938 
6E1 103 
DF O6F9 1038 PUSHAL 
DD O6FD 1039 PUSHL 
DD O6FF 1040 PUSHL 
FB 0705 1041 CALLS 
11 O070C 1 $s BRB 
O70E 10435 30S: 
O70E 1044 STRNLOG_ 
070E 1302 
8295 1 £6 
8A 07 ise BICB2 
91 fi § 1048 CMPB 
12 07 1049 BNEQ 
AA 0734 1050 BICcw2 
D6 0739 1051 INCL 
73D «(1 26 $FAO_S 
73D 105 
73D «1 28 
TaD 086 
TBD 1089 
DF O75A 1 28 PUSHAL 
DD 53 105 PUSHL 
DD 0760 1060 PUSHL 
FB 0766 1061 CALLS 
Bt 76D 1 $6 CLRL 
1 771 +106 BRw 
774 1064 10$: 
DO 0774 1065 MOVL 
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ITERATION 3; Increment iteration count 
MUNIT_LIST,UNIT_LIST,R6 ; Go through UNIT_LIST to... 
#UETUNTSV_TESTABLE,- 3 «--see if any testable units are left 
UETUNTSB FLAGS (RE) 1108 3; ...and if at least one is 

(R6) ,R6 ; This one isn't. Is there another? 
#UNIT LIST RG 

100 ; BR if there are others to try 
#TEST_OVERM,FLAG ; None testable so indicate test over 
#TEST_OVERM, FLAG ; Is the test over? 

SUC_ERIT 3 yes 

RESTART ; Loop until the test is over 

#ONE _SHOTV,FLAG,30$ Skip minimum I/0 check if one-shot 


Sete 


UNIT“LIST,R6 Check the queue... 
(R6) ,R6 3 «eto see if... 
#UNIT_LIST,R6 t ...each DRI1-W... 


; ...tested 
#MINIMUM,UETUNTSL_ITER(R6) ; ...ha 


3 «+.to not be considered hung 
UETUNTST_FILSPC(R6) ,R7 
CTRSTR = SLOW_DRI1W,- ; Otherwise bitch somewhat 
LEN = BUFFER_PTR,- 
gyteur = FAO_BUF,- 


= R7,- 
P2 = UETUNTSL_ITER(R6) 
hl Swit 
#UETPS_TEXT!STSSK_WARNING ; ... 
#3,G*LIBSSIGNAL Sates 
20$ 
S LOGNAM = MODE,- 

RSLLEN = BUFFER_PTR,- 

RSLBUF = FAO BUF ; Get the run mode 
#LC_BITM,BUFFER ; Convert to upper case 
#*A7L/ BUFFER :; Is this a loop for ever? 
10$ ; BR if not 
#TEST_OVERM,FLAG ; Reset the termination flag 
PASS ; Bump the pass count 
CTRSTR = PASS _MSG,- 

OUTLEN = BUFFER Pf8,- 
OUTBUF = FAO_BUF,- 
P1 = PASS,- 
Pe = ITERATION,- 
= #0 Make the end of pass message 


Push the string desc. 

Push arg count 

Push the signal name 

Print the end of pass message 
Reset the iteration count 

Do the next pass 


P 
BUFFER PTR 
#UETPS TEXT STSSK_ INFO 
#3,G°LIBSSIGNAL 
ITERATION 

TIME_IT ; 


s done the minimum I/0.. 


#SSS$_NORMAL!STSSM_INHIB_MSG,STATUS ; Set successful exit status 


5 
5) 


6 


L 
= VAX/VMS_U a DRi1l-W EXERCISER 


Test the DR 
077D 1066 


SEXIT_S STATUS 


"SrSEp=1986 04:55:15 UOetPesncSue to 


; Exit with the status 


SU0OCmAR: 1 
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4 } : -SBTTL Routine to Dump Debugging Info 
788 1 x FUNCTIONAL DESCRIPT! N: 
? 1071 ; This routine will be called ony if the logical name MODE translates to 
7 107 ; the str ng ‘DUMP'’, and then onl x for those situations where a dump of 
4 ! 4 3 nfo pertsining to the last $010 would be useful. 
788 1075 ; CALLING, SEQUENCE : 
4 ! 06 3 ALLS @# ,DEBUG_ DUMP 
788 107 INPUT PARAMETERS: 
, ! 7 ; NONE 
07 1081 IMPLICIT INPUTS: 
7 1 § 3 has the $Q10 Cin) completion status. 
7 1 ; 4 is an index inte the $Q10 tables 
7 1084 ; R10 points to the $Q10 orameat list. iregentent with R6) 
4 19 S$; XA_Q_10SB(R6) _ the IOSB for the Last $010 
7 : 1p 5 t OUTPUT PARAMETERS: 
Rag vue Ene 
07 : 1096 : IMPLICIT OUTPUTS: 
th 1091 : paseege to SYSSOUTPUT 
O88 1038 3 R1 returned unscathed! 
b7B 1094 ; COMPLETION CODES: 
by 199) 3 3 NONE 
78s 1092 5 : SIDE EFFECTS: 
78 1098 : BUFFER and BUFFER_PTR modified after SFAO call 
7 H 1099 ; 
Ae 
7 11 DEBUG_DUMP: 
OFFC it 1 $ = WORD “M<R2,R3,R4,R5,R6,R7,R8.R9,RIO,RII> =; Entry mask 
01 0002°CF 05 f° 78h 1105 BBS #DUMP_MODEV,FLAG,10$ ; Dump mode info wanted? 
4 a 1 $ 108 RET ; Nope - cal! is a no-op 
03 BB 0791 1198 ; PUSHR #*M<RO,R1> ; Save all registers! 
793 1109 SFAO_S CTRSTR = DEBUG_MSG : ALL the news that fits, we print 
793 1110 OUTLEN = BUFFER PTR,- 
cin sendy nip 
79 118 P = Q10$_EFN(R10),- 
793 1114 P = Q1O$“CHAN(RIOS .- 
793 «1115 P4 = Q10$_FUNC(R10),- 
7 1116 P5 = QLOS“ASTADR (RIO), - 
7 111 P = Q10 wb tae ),- 
79 4113 P = a108-F (R10),- 
793 (111 Ps = Q10 =PgcRI )i- 
793 «(11 ? P = Q10$_P5(R10),- 
793 11 P10 = Q10§7P4(R10) ,- 
793 «11 ¢ Pl = Q10$_P5(R10) ,- 
793 11 at; = XA_Q710SB(R65 ,- 
793 1124 P1 = XA7Q710SB+4(R6) ,- 


a 
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52 
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52 
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51 QOO0000FE ne 
0 
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000C 

B00 ORs 
00741133 

00000000 ' GF 
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o-oo oS 
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#TIME_STAMP_LEN-2,R1 
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wnunn 
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WU & SUN PNNINIPUNY) = | —DOOCO NNN MMMMmo 

OAM OW™ COODOUIWOOOWOD D Sr sMOvuMIIeoyY 

at ot Ss Ss Ss Ss Ss SS Ss SS 
BUEN (OOO NA UE WIN 9 ODNOAU EWN OOONOUM 


COODOOOCOCOOOOOCOOOCOCoOO 


AX/VMS Macro Hh hs Page 48 
UETP.SRCJUETDRIWOO.MAR; 1 (16) 


Index of next time stamp quad pair 

syep back to current time stone quad pair 
First available longword in DIAG BUF 
Number of quad pairs for DIAG_MSG 


; Step back one quad pair 
; BR if not below first e 
; Point to top of quad ost "Yist if it is 


th f., SStAPcner Cnt, -DIAG_BUF(R2) ; Position one time stamp for $FAO 


gene available longword in DIAG_BUF 


ndex 
XA_K_TSTAMP(R6)CR1],DIAG ‘aurck2)" 3 Position one time stanp for $FAO 
#8°R2 3 _BUF 


Next available longword in DIAG 
; Bump index back where expected 


; Restore registers pristine 
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1} nm -SBTTL DR11<W AST Receiver 
1160 ; FUNCTIONAL DESCRIPTION: 
138 3 This routine will be called when DR11-W 1/0 completes for those $Q10s 
2 138 3 _ which specify an ASTADR parameter. 
; 1164 ; CALLING SEQUENCE: 
1192 3 Called via AST at 1/0 completion. 
: 1187 ; INPUT PARAMETERS: 
23 1198 3 NONE 
59 1190 :; IMPLICIT INPUTS: 
59 1171; NONE 
59 1126 3 
859 11735 ; OUTPUT PARAMETERS: 
522 1174 ; NONE 
$839 1138 ; IMPLICIT OUTPUTS 
0859 1199 3 NONE 
0859 1178; 
0859 1179 ; COMPLETION CODES: 
0859 Vey 3 NONE 
0859 1181; 
0859 1186 ; SIDE EFFECTS: 
0859 a : NONE 
0859 1184; 
0859 tH ;-- 
0859 1186 
0859 1187 IOAST: 
OFFC 5 is ~ WORD “M<R2,R3,R4,R5,R6,R7,R8,R9,R1I0,R11> =; Entry mask 
04 0858 1190 RET 
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-SBTTL Restore Original DR11-W Characteristics 


FUNCTIONAL DESCRIPTION: 
This routine will be called when the sequence of $Q10s completes for 


DR 
L 


Wns 


all DRil-W's or when something causes the test to abort. 


CALLING SEQUENCE: 
BSBW RESET_OR11WS 


INPUT PARAMETERS: 
NONE 


ETP 
gin 
.- 
¢ 11 : s 
C 1194 ; 
Ee: 
2 1199 : 
2 1138 3 
C 1199; 
O85C 1200 ; 
O85C 1201 ; 
O85 1508 
est 1004 ; IMPLICIT INPUTS: 
O85C 1205 ; Original characteristics buffer for each DR1i1-W. We will assume there 
baer : 6 3 are valid data if there is anything in here. 
085 1208 : OUTPUT PARAMETERS: 
OBE 15N0 | tn 
O85C 1211 : IMPLICIT OUTPUTS: 
ORse 1518 | oe 
O85C 1214 ; COMPLETION CODES: Qic 
St isp ton Hf 
ossc 1 19 > SIDE EFFECTS: Qic 
O85C 1218 ; Each DR11-W has the same characteristics as it had at the start of the Qic 
ete 1219 ; est. Qic 
085C 1220 ; QIc 
base 1552 ° aie 
O85 5 RESET_DR11WS: ait 
56 O300'CF DE + F44 1 5 108 MOVAL UNIT_LIST,R6 : This will point to current node +H 
56 66 C0 nt 1 § : ADDL2 (R6),R6 ; Point to the next node Qic 
56 veeecuadl \' » 4 ’ 8 haat #UNIT_LIST.RO 3 peck at the queue head? oH 
3 so 
01B4 C6 5 9 1230 TSTL XA_Q_ORIGINAL (R6) ; Did we ever get DR11-W characs? RAE 
cs 5 1 1231 BEQL 108 ; BR if not RAE 
5A 018C C6 E es 1 ¢ MOVAL XA_K_QI0(R6),R10 ; Point to $Q10 arglist for clarity RAE 
st AA C 7 1 CLRQ Q10$"P4(R1 ) ; Clear P4 and P5 RAE 
4 AA D4 7B 1234 CLRL Q10$_P3(R10) ; Clear P RAE 
20 AA 04 ~ «200 7E 1235 MOVL #4,QTO$_P2(R10) ; We must transfer at least some data RAL 
1C AA 09F2 C6 ODE 1 6 MOVAL XA_K_BUF(RG) Q108_P1(R10) ; Pl gets data buffer RAL 
AA C 1 CLRQ QIOS“ASTADR(RI ) ; Clear ASTADR and ASTPRM RAL 
Oc AA 00001908 BF vO 1 8 MOVL  #XAW"_RESET_CYCLE,QIO$_FUNC(R10) ; Set FUNC 
93 1 $Q10w_G (R107 ; Reset DR11-W 
20 AA 04 9A 1240 CLRL Q10$_P2(R10) ° creer P2 
1C AA 0184 C6 OD 1241 MOVAL XA_Q_ORIGINAL(R6) ,Q10$ Pi(R10) ; Pl gets characteristics buffer 
AA 1A OD 3 1 4g OVL #10$"SETCHAR,QIOS_FUNCTRIO) ; Set FUNC. Other args must be OK 
124 $Q10W_G (R10) ; Reset original DR11-W characteristics 
AE 1244 ; We don't care about failure of these two $Q10s. There's nothing we 
AE 1245 can do to remedy the situation now, anyway. 
B1 11 30 ! +8 208 6 1 3; Loop to next unit 
05 1248 RSB 
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4 } ‘ -SBTTL Timer Expiration Routine 
B1 1252 : FUNCTIONAL DESCRIPTION: 
7 3 This routine will be called if the normal three-minute timer to 
4 } 2: 3 indicate the end of the test goes off. 
Bi 1 $; ? CALLING G SEQUENCE: 
! ! : Called via AST at SSETIMR expiration. 
881 1 35 : INPUT PARAMETERS: 
i 60 ; NONE 
7+ 6 : IMPLICIT INPUTS: 
RE 
0881 1265 : OUTPUT PARAMETERS: 
bee] 1567 my 
0881 1268 : IMPLICIT OUTPUTS: 
pee! : $3 3 NONE 
Spe 1271 : COMPLETION CODES: 
See 1598 = 
0881 1274 ; SIDE EFFECTS: 
08B1 1275 ; Sets a flag to indicate timer expiration. 
0881 1676 : 
So 
0881 HE TIME_OUT: 
OFFC 8B} 80 .WORD “M<R2,R3,R4,R5,R6,R7,R8,R9,R10,R11> ; Entry mask 
O002'CF O02 a8 0883 1382 BISW2 #TEST_OVERM,FLAG : Indicate end of pass or of test 
04 0888 128 RET 


UE] 
UE] 
UE! 
UE] 
UE] 
UE! 
UE | 
UE! 
UE! 
UN! 
UN] 
UN! 
UPI 
WR) 
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-SBTTL System Service Exception Handler 
*FUNCTICNAL ey Lad bd 
This routine is executed if a software or hardware exception occurs or 
it a LTBSSIGNAL system service is used to output a message. 


CALLING SEQUENCE: 
Entered via an exception from the system 


INPUT PARAMETERS: 
ERROR_COUNT = previous cumulative error count 


AP ===> 2. ; 


' 4 ! a 
! 
: ESTABLISH FP} 
DEPTH i Mechanism Array 
Vay Yar i i 
' eeeeseeeooeoneoeeoe ' ! 
! R1 ! v 


' 
' 
Veen enoceceennn ! 
! N-3 ADDITIONAL Signal Array 
LONG WORD wee 

' 

' 

v 


IMPLICIT INPUTS: 
NONE 


@ 
DOODOOOOOOVOVOOOOODOODOOVOOOOOOOOOOOOOOOOOOOOOO OO 


OUTPUT PARAMETERS: 
NONE 

IMPLICIT OUTPUTS: 
NONE 


COMPLETION CODES: 
SS$_NORMAL if it's a UETP condition or RMS error. 
Error status from exception, otherwise. 


SIDE y hah 
May branch to ERROR_EXIT. 
May print a message. 


5 Go Se Go Go Oe Go > Oo Go > Oo GD OD Oo GD OD Oo GD > Oo GD > Go GD Oo Go GD Go Go GD Go Go GD Go GD BD G9 GD OD Go GD BD Go ED OD DED DED 
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—O a 9 3 4 4 a ss ts a = st 2 ss a 


0 
0 
D 
0 
" 
0 
Q 
0 
0 
0 
0 
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0 
Q 
0 
0 
0 
0 
0 
0 
0 
Q 
0 
" 
0 
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woowowowowowowowowvowvovovon9o 


F ? 3 ee] 
= VAX/VMS UETP DR11<W EXERCISER 16-SEP-1984 01:25:57 VAX/VMS Macro V04-00 Page 
y Hh Sennen Bane ce Exception Handler eset yy 81:5 :15 CUETP.SRC Ta as MAR; 1 38) 
OFFC 53 ‘8 wan “M<R2,R3,R4,R5,R6,R7,R8,RI,R10,R11> ; Entry mask 
# ; Disable AST delivery 
1 dD te ta ++ tr 2 ens — ; Assume ASTs were enabled | 
50 03 D1 £8 1 29 CMPL $0558 WASSET RO ; oF te tine ate | 
of i 0 4 Pr PERL (SP) : Set ASTs to remain disabled 
CD 1350 10$: 
; Disable SS failure mode 
01 OD Bb i 1 Hitt — sas 3 Rehane SS failure mode was enabled 
50 09 O01 bbs 1 38 CMPL Sogo e- WASSET,RO : Was SS petture mode enabled? 
4 ba OBDD i ee erat (Sp) : Set SS failure mode to remain off 
art 2$ _ : h ignal arra rater, 
56 04 AC 0 Bebe 135 MOVL CHFSL_SIGARGLST(AP) ,R6 ; Get ~~. signal , or a pe ater 
rt am ‘8 ? SpES i 38 Oe ay iiskosFat hgss : Te thie a message from LIBSS TONAL? 
. O8E9 1360 #sTSSs. FAC-NO 
scala 3 1 OBFO : $3 BNEQ Rag hUeT PSF Faciuity ; pe thy this is not a UETP exception 
ee iy Bilan Fatt PEI ITE ak I EE FE ae 
21 11 Seba i ge 44 flea ® ee : 5 R6) : ASTs and SS fail mode 
0906 1366 30$: : ‘eit 
snes ae et ee eR a eco 
6 is st4 1369 CMPZV selseueta FAC -NO. - : Is it an RMS failure? 
01 A $312 131 il R10. SaRASS CPACILITY asa 
te bole 139 ' - : i trol bits from status code 
- FOB A iF 9 $318 i is aittee § H <cENFSL S16 .ARGI (RO), -; sie on AMS failure for which... 
. $333 1 a swat CERGTR TABLE ; ...no AST can be delivered? 
atta th 13 $9 : 1 6 BEQL NOs ; BR if so - must give error here 
01 # =BA 88 } i 8 — POPR #*M<RO> ; Restore SS failure mode... 
on He TY eOPRAMRLS = 0 acleare AST enable. 
0934 1 SCE TAST NN NBFLG = : sais Haar eae 
MBE NE i Pree Rane 7 Heelys seeders 2a Sle 
941 1385 50S: : 
ee 33 p? 3c i $ CCRE ee : ore: Ay men _F et 3 forre. 
: ervice fa 
59  0000045C ef D1 348 1388 Hana oass. SSFAIL,R9 : But js Me a yeh ge eee 
hiiny 38h i 5 SGETMSG_S MSGID = ; Get SS failure code associated text 
951 1391 MSGLEN = BUFFER PTR,- 
951 139 BUFADR = BUF ,- 
9a 38 OUtABR : alee "BLOCK 
82a 1308 x : t for SS failure code 
oes 95 BBG Hae SB ggg. thoce RISO ATBRE (Prag argc 
. F 09 139 A ro B PFER. PTR : -»-else bu up.. 
— 61 DD 395 1398 i 3 e+.@ message describing... 
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00741130 8F DD 0974 1399 PUSHL #UETPS$_TEXT i «eewhy the System Service failed 
00 a FO O97A 1400 INSV m0, +: eT tH SEVERITY,- : Give the message... 
: % - 320 14 1 at EVERITY,(SP) =; zs the correct severity code o 
: Coun e number of args we pushe 
08 99 bean jc08 BRE is ee 
984 1404 60S: 
5A DD 0984 1405 PUSHL R10 ; Save SS failure code 
58 01 00 2 § 13 $ 70$ MOVL #1,R8 ; Count the number of args we pushed 
57 = 66 9% CS 0989 14 $ MULL #4,CHFSL_SIG_ARGS(R6),R7 ; Convert Longuerds to byte 
5E 7 Ss 98D 14 SUBL P ; Save the current signal array... 
6E 04 A6 2? 330 1410 mMOoVC Ry CHFSL_SIG_NAME(R6) , (SP on the stack 
7E 386 66 8 4 995 1411 ADDL cura $16. ARGS (R6), top) ; Push the current arg count 
00A6 931 +0999 1412 BRW ERROR” 


4 o08 288 288 288 od ofd off odd odd 22 Oe OP ee Om me me mm mk kk lk kk kk kk 
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-SBTTL RMS Error Handler 


FUNCTIONAL DESCRIPTION: 
; This routine handles error returns from RMS calls. 


uv 
vy 
re} 
e 
~~ 
row 
wn 
= 


CALLING POU Rces 


1414 Q0' 
99C 1415; Q0' 
99C 1218 § 
99C 1417; 

SaBnLE 
44: 1? : : Called by RMS when a file processing error is found. 09 
996 14 : : INPUT PARAMETERS: 006 
1445 13 i 3 The FAB or RAB associated with the RMS call. 4 
99C 1425 : IMPLICIT INPUTS: 004 
Se a 
099C 1428 : OUTPUT PARAMETERS: 00; 
St lige 8 
099C 1431 : IMPLICIT OUTPUTS: 00; 
099¢ 14 g ; Error message ed 
099C 1434 : COMPLETION CODES: 00; 
S998 1438 | os it 
099C 1437 : SIDE EFFECTS: 00! 
344: 1o38 3 Program may exit, depending on severity of the error. st 
ope eee om 01 
999C 1226 RMS_ERROR: 00! 
OFFC 4445 1207 .WO “M<R2,R3,R4,R5,R6,R7,RB,R9,R1I0,R1I1> = Entry mask sit 
56 04 AC DO O99E 1445 MOVL 4(AP) ,R6 ; See whether we're dealing with... 00; 
66 03; =«91 O9As 1008 CMPB #FABSC_BID,FABSB_BID(R6) 3; ...a@ FAB or a RAB 00‘ 
16 12 Q9AS5 144 BNEQ 10$ ; BR if it’s a RAB 00‘ 
57 OFS'CF OD 9A7 1448 MOVAL FILE,R7 3; FAB-specific code: text string... OU: 
58 56 DO Q9AC 1449 MOVL R6,R ; ..-.address of FAB... 00‘ 
OC A6 «DD O9AF 1450 PUSHL FABSL_STV(R6) : ..eSTV field for error... 00 
08 A6 DD 0982 1451 PUSHL FABSL-STS(R6) : «STS field for error... Bo 
O2B6'CF 08 A6 00 098 1426 MOVL FABSL_STS(R6), STATUS 3 ...and save the error code 

16 11 4 a 10s BRB COMMOR ; FAB and RAB share other code ed 

57 sa D 9BD 1455 ; MOVAL RECORD,R7 ; RAB-specific code: text string... 
58 CA6 «OD 9C2 1436 RABS _FABCR6) .RB ; «address of associated FAB... 1 
Be A6é DD 33 132 PUSHL RABSL_STV(R6) 3 «STV field for error... 1 
A6 DD O9C9 14 8 PUSHL RABSL_STS(R6) ; «STS field for error... 1 
O2B6'CF 08 A6 00 145 1623 omnaes MOVL RABSL_STS(R6) ,STATUS 3 «.-and save the error code oh 
SA 34 AB) O9A 38 1461 " MOVZBL FABSB_FNS(R8),R10 1 
9D 1096 O_S CTRSTR = RMS ERR_STRING,- ; Common code, prepare error message... 1 
906 146 OUTLEN = BUFFER_PTR,- 1 
906 1464 QUTBUF = FAO_BUF,- 1 
906 1465 e = R7,= 011 
9D 1466 Ps = R16,- 1 
906 146 P = FABSL_FNA(R8) 1 
coc" st +4 are 1098 a tr BUFFER_PTR 3 «..and arguments for ERROR_EXIT... , 
00741130 $F DD O9F6 1290 PUSHL #UETPS_TEXT ewan 01 
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-SBTTL CTRL/C Handler 


yy FUNCTIONAL DESCRIPTION: 
: This routine handles CTRL/C AST's 


CALLING prouense: 
Called via AST 


INPUT PARAMETERS: 
NONE 


>Prrrrrrrr>rrrrrrrrr,r 
SOODHOG Oooo oO Do Oooo wD 


1678 
147 
14 p : 
1282 
14 j 
1484 : 
1 
ne 
14 § + IMPLICIT INPUTS: 
CS ay 
1498 3 + OUTPUT PARAMETERS: 
\e32 ¢ 3 NONE 
1495 IMPLICIT OUTPUTS: 
1298 : ; NONE 
AOB 1498 : COMPLETION CODES: 
198 1300 | — 
AOB 1501 ; SIDE EFFECTS: 
A0B 15 ¢ 3 ; NONE 
QA0B 1503: 
AOS 1808 
A0B 1306 CCASTHAND: 
OFFC whe 130% «WORD “M<R2,R3,R4,R5,R6,R7,R8,R9O,RIO,RII> ; Entry aask 
seated 2 m4 1309 oh CNTRLCMSG b get 2 messege porter 
00741130 8F DD OAI3 1511 PUSHL #UETPS_TEXT!STS$K _warniné ° “Set Signal name 
00 DD OAI19 1216 PUSHL @# > lea dicate an abnormal termination 
0210'CF DF AB 1313 PUSHAL PROCESS. NAME 3 eee 
007410€0 af DD OA 1 1515 PUSHL BETES, ABENDD ! STS$K _WARNING’ ; 
00000000 ' GF FB OA27 1316 CALLS ohio BSS L : Output “the message 
D0 OA E 131 MOVL ac8ts M_INHIB_MSG!~ : Set the exit status 
ACF 1518 $S$$_CONTROL 
seneiad i menenems te “ . 131% STSBk SUCCESS#STSSK. WARNING>,= 
0A37 i354 SEXIT_S STATUS ; Terminate program cleanly 
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vu 
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woo 
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02 us 
00741039 8F DD OA5S9 PUSHL #UETPS$_BEGIND!STSS$K_ succéss’s Set the message code 


00000000'GF 04 FB ved 10$ CALLS #4,G*LIBSSIGNAL : Print the startup message 
O2F8°CcF 0 8E C1 OA66 ADDL3 (SP)+,#8, ARG_ COUNT ; Get total # args, pop partial count 
O2B2‘°CF D6 OA INCL ERROR_CO ONT 3; Keep running error count 
00 odd OA PUSHL #0 : Pusn the time parameter 
8 10°CF ODF QA? PUSHAL once NAME ; Push test name... 
OOOF e DD OA7 PUSHL “xF ++-arg count... 
007410E2 8F oD are PUSHL FUE TPS ABENDD! STS$K ERROR - and signal name 
‘CF DD OA PUSHL ERROR COU : binish oft arg List... 
"CF OF A86 PUSHAL PROCESS N MAME poses 
9 1 ef DD OA8A PUSHL #*x10002 
F DD OA90 


4 
OO000000'GF O2FB'CF F 
O2B6'CF 0D 
| 


007410E2 | 7 
0286 


PUSHL  #UETPS ERBOXPROC!STS$K _ERR ROR: .. for error box message 
CALLS ARG_COUNT,G*LIBSSIGNAL~ ; truly bite 

TSTL aw ; Did we exit with an error code? 
BNEQ 0$ : BR if we did 

MOVL #UETPS_ABENDD!STS$K_ERROR,~ : Supply a generic one otherwise 


Error Ex 
“ } ; cm -SBTTL Error Exit 
A4e 1505 : FUNCTIONAL DESCRIPTION: 
cv ! § . This routine prints an error message and exits. 
Abe 1 8 ; CALLING SEQUENCE: 
A42 1 : MOVx error status value,STATUS 
A4e 1 9 : PUSHx error specific information on the stack 
A42 1 ; PUSHL current erguaent count 
wa ! § 3 BRW ERROR_EXIT 
A4d 1534 : INPUT PARAMETERS: 
or 12 5 ; Arguments to LIBSSIGNAL, as above 
OAb2 15 ; : IMPLICIT INPUTS: 
ae 1 8 3 NONE 
AG 13 0 : OUTPUT PARAMETERS: 
we 1 12 Message to SYSSOUTPUT and SYSSERROR 
OAS? 15 5 : IMPLICIT OUTPUTS: 
a 13 ¢ s Program exit 
OA42 15 é : COMPLETION CODES: 
Ones 1848 | — 
OA42 1549 : SIDE EFFECTS: 
OA4 1550 ; NONE 
OAse 1551; 
RAE 1g = 
“ HF ¢ ERROR_EXIT: 
A42 15 SSETAST_S ENBFLG = #0 ; ort wee Lay havoc with messages 
15 0002'CF 03 EO OA4B 15 § BBS #BEGIN_ MSGV, FLAG,10$ : t begin” asg oready printed 
4 D4 OAS1 1558 CLRL -(SP) 3 ne the time stamp flag 
OOOF'CF DF QAS3 1559 PUSHAL TEST NAME : pet the test name 
DD OAS’ 13 9 PUSHL h the argument count 
15 
i 
13 5 
1367 
136 
137 
1398 
1574 
! 5 
135 
1339 
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AAE 1 20$: 
0286'CF 10000000 BF cB OM 1381 BISL_ _ #STSSM_INHIB_MSG,STATUS ; Don't print a 
na? 1382 $EXIT_S STATUS” iaigse 


a 2. OM OM OM 8 ee 
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AC2 1 ~-SBTTL Exit Handler 


AC p++ 
AC 3 FUNCTIONAL DESCRIPTION: 
Th id rus inn. handles cleanup at exit. If the MODE hogical name is 


fms 


MOVAL INI_R Set the ~~ gcéress 

MOVB bRABSC a ty RABS$B_RAC(R mg} 3 Set RFA m 

MOVC3 #6,DDB"RFA,RABSW-RFA(R10) ; Set RFA to DDB Line 

$GET RAB TR105 : be back to the ppe record 
UPDATE FA LES f failure then forg get it 

MOVB ttt: _SEO,RABSB_ eens Fo ; Set back to sequential mode 


on RE BB 
75 38 9 of 


1—€ AA 0 


4 
1585 
HE 
ACe 1 8 : equat ‘ONES the rout ine will update the test fl lag in the 
AC2 1 3 TERTOEV: DAT file depending on the UETUNTSM_TESTABLE flag state *, os O0¢ 
AC2 1590 ; UETUNT SB, FLAGS field of the unit block corresponding to a Line int 00¢ 
AS 1B 8 
Aco 1 38 > CALLING SEQUENCE: 006 
AC 38 ; Invoked automatically by SEXIT System Service. O0¢ 
Ace 1 %6 : INPUT PARAMETERS: O01 
ACe 1597; STATUS contains the exit status. od 
OAC 1238 : FLAG has synchronizing bits i 
Bae 1233 3 DDB_RFA contains the RFA of the DDB record for this device in UETINIDEY id 
ACe 1601 : IMPLICIT INPUTS: 00i 
AC 1698 : UNIT_LIST points to te head of a doubly Linked circular List of unit 00i 
AC 1983 ; locks for the device under test. od 
OAC 1605 : OUTPUT PARAMETERS: 001 
Bucs yep; NOME 00: 
AC 1808 > IMPLICIT OUTPUTS: 008 
AC2 1609 ; Various files are de-accessed, the process name is pest, and any 00% 
OAC2 1610; TF the nb synchronization with Bh Lie eve) is carried out 00% 
OAC2 1611; If the DE logical name is e o ‘ONE’, the rout ine will update 00£ 
OAC 1el¢ 3 the test flag in the UETINIDE upxed tite dependin 008 
OAC2 1615 ; UETUNTSA. TESTABLE flag state in the UETUNTSB_FLA s° field of the unit Q0£ 
mv 1913 : block cofresponding to the DR11-W sie 
AC 1616 > COMPLETION CODES: 005 
Be Tt tonne 8 
i 3 
OAC 1619 ; SIDE EFFECTS: 00 
OAC2 1620 ; NONE 005 
AC2 1621 ; 005 
Aco 1658 it 
OAC2 1624 EXIT_HANDLER: 
OF FC nae 19 5 ~ WORD “M<R2,R3,R4,R5,R6,R7,R8,R9,RIO,RII> = Entry mask t 
ACS 16 : SSETSFM_S ENBFLG = # 3 Turn off Systes Service failure mode 1( 
ACD 16 3 SSETAST_S ENBFLG = # 3; We're fin = no more ASTs 1( 
03 0002'CF 04 9 AD6 1 BBS “#ONE_SHOTV,FLAG,10$ : If one-shot, update testability... 1( 
0088 1 ee + ? 108 END_OPDATE 3 «else don’t update VETINIDEV.DAT gt 
03 0002°CF 02 69 ADF 1 j "BBS #SAFE_TO_UPDV,FLAG,20$ ; Only update if it's safe 1( 
OOAF 19 ? BRwW END_UPDATE ; Else forget it if 
! 5 1 
i 
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PAD WME & EAA 2 OS OS OO 


SHSHOHO SHO HO OOS DOS OS SOS OSS SS OTOL OSS OS DSO DOS 
WAWIOOSI NNOOS SIMO OCOOON 


PPP PF OCC OOOO NINO O 


&> 


ADDL3 SYMIT LEST UNIT LIST RN ; 


CLRL 
UNIT_LOOP: 
BBC #UETUNTSV TESTABLE - 
UETUNTSB_FLAGS(R115,10$ 
INCL oR 
10$: 
ADDL2 = (R11), R11 
PL «R11, #UNIT_LIST 
BNEG -UNIT_LOO 
TSTL RO 
BNEG 208 
OVB _#*A/N/, BUFFER+4 
SUPDATE RAB = (R10) 
‘ie C — RO,UPDATE_FAILED 
ADDL2 (R11), R11 
L -R11,#0NIT_LIST 
BEQL END UPDATE 
$GET §RAB™= (R10) 
BLBC RO,UPDATE FAILED 
BICB2 #L¢_BITM, BUFFER 
B  #*A7U/,BUFFER 
BNEQ = END_UPOATE 
BBS #UETUNTSV_TESTABLE,- 
UETUNT$B_FLAGS(R115, 
OVB _#*A/N/, BOFFER#4 
SUPDATE RAB = (R10) 


RO, 208 
RABSL_STV(R10) 
USHL 

PUSHAL INIDEV_UPDERR 
EXTZV #STS$V_SEVERITY,- 
#STS$S~ SEVERITY 


BISL2 aye TPS TEXT, (SPS 
S$ #5,G*LIBSSIGNAL 


#TEST_OVERV, FLAG, 108 


BSBW = =—- RESET~DR11WS 
10$: 


L #0 
PUSHAL TEST_NAME 
PUSHL # 


EXTZV #STS$V_SEVERITY.- 
#STS$S~SEVERITY.- 
STATUS; -(SP) 

BISL2 #UETPS_ENDEDD, (SP) 

PUSHL  @# 

MOVL SP, R1 

SPUTMSG_S MSGVEC = (R1) 

SSETPRNTS PRCNAN = ACNT_NAME 


~END UETDR1WOO 
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RO,-(SP) 
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set the unit block List header 
Init a counter 


; BR if this unit is not testable 


Count testable units 


Next unit block 
Are we full circle in the list? 


no 
; Any testable units? 
BR 


soc@lSe disable the DDB record... 
-.-here 
If error then forget it 


Next unit block 

Are we full circle in the list? 
yes 

Get a record 

If error then forget it 


; Convert to uppercase 

; Is it a UCB record? 

; BR if not 

; BR if this unit is testable... 


oaepiee disable the UCB record... 
eee ere 

Look at the next record if no error 
Do a simple message... 

«eto tell of the failure 

Copy the severity from RMS status... 
«+-tO our message 

Did the test complete normally? 
Reset original DR11-W characs if not 
Set the time flag 

Push the test name 


Push arg count 
Push the proper exit severity... 


; «and use it in our message code 


Output the message 
Reset the process name 
That's all folks! 
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ARG) 
ARGS 
NAME 


a 
” 
=) 
oO 
xz 
< 
Oo 
cal 
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MSGV 
CTRLNAME 

DUMP 
HANDLER 


BUFFER _PTR 
DEVNAM 


SIG 
SIG 
IZE 


R 
CHFSL_SIG 


CNTRLCMSG™ 


COMMON 


CONTROLLER 
_DESC 


CCASTHAND 
5 
UG 
DEVDEP_SIZE 
DEVOSC 
$ 


VETOR1WOO 
Symbol table 
$$.TAB 

$$. TABEND 
CHF SL 


BEGIN 
BUFFE 
CHF SL 
CHF SL 
CONT 
CS] 
Cs3 
DDB_RFA 
DEA 
DEB 
EXIT 
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NO_CTRLNAME C4 R 03 RESET_OR11WS 85C R 6 
NO_MESSAGEM 40 RESTART §8000299 R 
NO_MESSAGEV = 06 RMS$_BLN eeeeeeee =X 
NO_RMS_AST TABLE 40 R 03 RMS$_BUSY eeeereee =X 
NRAT_LENGTA = 14 RMS$_CDA eeeereee =X 

_SHOTM = 10 RMS$_FAB eeeeeeee =X 
ONE SHOTV = 04 RMSS_FACILITY = 00000001 
OUTADDRESS CA R 4 RMS$_RAB eeereeee =X 3 
P1_TABLE 98 R RMS_ERROR 0 444 R g 
P2_ TABLE 80 5B4 R RMS_ERR_STRING 0 50s R 
PS_TABLE 0000500 R SAFE_TO_UPDM = 00 4 
P4_TABLE 608 3 R 43 0 UPDV = 00000002 
PS TABLE R SECSA_ERXPREG eeeeeeee =X 06 
PAGES = 0000000 SECSM_GBL aeeeeeee =X 06 
PASS 8388 fo R SHR$_ABENDD S 9081058 
PASS_MSG 00000185 R 3 SHR$_BEGIND = 00001 
PMTSTZ = 00000019 SHR$_ENDEDD = O88 Ose 
PROCESS_NAME 00000210 R 04 SHR$_OPENIN = 00001098 
PROCESS NAME FREE = 00000008 SHRS_TEXT = +4 $0 
PROC_CORT_ 000000 8 R 06 SLOW OR11W 44443 R 03 
PROMPT 444 $ R 0 SS$_BADPARAM = 544 14 
Q10$_ASTADR = 00000014 SS$_CONTROLC = 00000651 
Q10$_ASTPRM = 4444 dh SS$_NORMAL = 44 
Q10$_ CHAN = 0000000 SS$_NOSUCHSEC = 00000978 
Q10$_EFN = 00000004 SS$_SSFAIL = 0000045¢ 
Q10$_ FUNC = 0000000¢ SS$_WASSET = 00000009 
Q10$_10S = 00000010 SSERROR 0000889 06 
Q10$_NARGS = 0000000C SS_SYNCH_EFN = Oop ous 
Q10$_P1 = 0000001C STATUS 0000286 04 
0108 .F¢ = 00000020 STRSUPCASE eeeeeree =X 06 
Q10$_P = 00000024 STSS$K_ERROR = He 
Q10$_P4 = 00000028 STSSK_INFO = 0000000 
Q10$_P5 = 0000002C STSS$K_SUCCESS = 444g 
Q10$_ P6 = 00000030 STSSK_WARNING = 44 44 
QI0_EFN = 00000005 STSSM_INHIB_MSG = 1 9494 
QIO_ERR 00000297 R 03 STS$S_FAC_NO = 00000 6S 
Q10_ FUNC FAIL sia B8 R 03 STSS$S_SEVERITY = 0000000 
QUAB_ STATUS 0000 in R 04 STS$V~FAC NO = 00 dt! 
RABSE_P = 00000034 STS$V-SEVERITY = 8 ee 
RABSB_RAC = 4444 1E SUC_ERIT 06B8C 66 
RABSC_BID = 00000001 SUPBEV_GBLSEC 44 td R 0 
RABSC_BLN = 454s SUP_FAB 00000508 R 04 
RABSC_RFA = 0000000 SYSSASSIGN eeneeeee GX 06 
RABSC_SEQ = 0 00000 SYSSCONNECT eeeerene GX 6 
RABSL_CiX - ' SYSSCRMPSC eeereree GX 6 
RABSL_F AB 7 $5 SYSSOCLEXH teeeeeee GX 6 
RABSL _ PBF = SYSSEXIT teeeeeee GX 06 
RABSL_ROP = & SYSSEXPREG aeeerere GX 8 
RABSL_STS = 8 SYS$FAO eeeeeree = § X 6 
RABSL_STV = C SYS$FAOL aeereeee GX 6 
RABSV_PMT = SYSSGET aeeneere GX 6 
RABSW_RFA = 0000001 SYSSGETDEV eeererer GX 6 
RABSW_RSZ = 0000002 SYSSGETOVI eeereres GX 6 

1 00000204 R & SYSSGETMSG eeereree GX § 

R 2 8 R 4 SYSSINPUT 00000061 R 
RECORD 1 R 3 SYSSMGBLSC erentere GX 6 
REC_SIZE = 8 SYSSOPEN eeeeerer 6X 6 
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SYSSPUTMSG 
SYS$Q10W 
SYSSSETAST 


THRE 


P 
UETP$_ABENDD 
UETP$_ABORTC 
UETP$~BEGIND 
UETPS-DATADEVERR 


oes 


UE TUNTSV~ TESTABLE 
UE TUNTSW” CHAN 
UE TUNTSWSIZE 
UNIT_DEST 
UNITILIST 


UPDATE FAILED 
WRITE SIZE 
XASM_CINK 
KAW_—CYCL 

KAW RESET CYCLE 
XAW--SETFNCT CYCLE 
KAW" TIMED_CYCLE 
XA_6_TS 

KA_K BUF 
XA_K_TSTAMP 
XA_Q” CHARAC 
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be ee eoeneeer cnet 
H Psect synopsis ! 
PSECT name Allocation PSECT No. Attributes 
» es 000 $000 ( 8-3 0 ¢ 0.) NOPIC USR CON ABS LCL NOSHR NOEXE NORD NOWRT NOVEC BYTE 
SABSS B38 $ ( -)») Q1¢ 1.) NOPIC USR CON ABS LCL NOSHR EXE RD WRT NOVEC BYTE 
DEVDEP_STR_DEF QOODDA ( 3546.) § ( ¢°} NOPIC USR CON ABS ~ LCL NOSHR NOEXE RD NOWRT NOVEC PAGE 
RODATA 4h TH ( 1572.) 03 ¢ -) NOPIC USR CON REL LCL NOSHR NOEXE RD NOWRT NOVEC PAGE 
RWDATA 4464 § ( 1368.) 04 ( 4.) NOPIC USR CON REL LCL NOSHR NOEXE RD WRT NOVEC PAGE 
SRMSNAM 0000025 (¢ -) O05 ¢ 5.) NOPIC USR CON REL LCL NOSHR EXE RD WRT NOVEC BYTE 
DR11W 00000BD6 ( 3030.) 06 ¢ 6.) NOPIC USR CON REL LCL NOSHR EXE RD NOWRT NOVEC PAGE 
dem ere mone ere meee eee eames + 
; Performance indicators : 
Phase Page faults CPU Time Elapsed Time 
Initialization | 3 00:00:00 .07 80:00 :00.63 
Command processing 131 0:00:00.77 ea a 
Pass 723 88 88: 3-36 00:00:55.59 
Symbol table sort 0 00:00:02.5 00:00:05.04 
ass 2 ‘\6 188 SES Sb SPT 
Symbol table output 3 00: 3:8 " BB BO 08: 4 
Psect synopsis output 5 00:00:00.05 00:00:00.08 
Cross-reference output 8 ab BR ae b 00:00:00.00 
Assembler run totals 134 00:00:34.16 00:01:18.85 


The working set Limit was 2000 pages. 

135028 bytes (264 pages) of virtual memory were used to buffer the intermediate code. 

There were 90 pages of symbol table space allocated to hold 1724 non-local and 49 local symbols. 
1696 source Lines were read in Pass 1, produc ing 38 object records in Pass 2. 

67 pages of virtual memory were used to define 56 macros. 


Geeweeeseceecoscecenccecccns 


! Macro Library statistics : 
ewe eee ee ree eee ee See ee 


Macro Library name Macros defined 
5 geepuA : ae ay gt As ph $ 
_8255$DUA28: ave. ORY LIB.MLB;1 

$255$0UA28: CSYSLIBISTARLET.MLB;2 49 
TOTALS (all Libraries) 51 


2074 GETS were required to define 51 macros. 
There were no errors, warnings or information messages. 
MACRO/LIS=LIS$:VETDR1WO0/OBJ=0BJ$:UETDRIWOO MSRC$:UETDR1IWOO/UPDATE=(ENH$:UETDR1WOO) +EXECMLS$/LIB+LIB$:UETP/LIB 


T CORPORATION 


mnaiy AH-BT13A-SE 
4) PROPRIETARY 
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